Dim j,k为整数
Dim na为字符串
j = Sheet1。范围(" a65535 ")。结束(xlUp)。第k行=工作表。对于i = k + 1到j + k
工作表,计数
。添加在:=工作表(工作表。Count)
na = Sheet1。单元格(i - k,1)。价值工作表(一)。Name = na
Next i
End Sub
What are the more personalized greetings when the New Year is coming? I have compiled some information for you below, hoping to help you!
clause
1. New Ye