lingyuncelia1

复制

已有 5069 次阅读2016-6-9 10:21

Sub celia()
For j = 2 To 4
For i = 1 To 10
lastrow = Range("a65536").End(xlUp).Row + 1
Cells(i, j).Copy Range("a" & lastrow)
Next
Next
End Sub

GMT+8, 2024-6-26 11:47 , Processed in 0.227429 second(s), 5 queries , Gzip On, Yac On.

		自动登录	找回密码
密码			注册