Question

如何用宏将sheet1内已经选中的内容复制到sheet2的最后一行？关键是始终自动复制到最后一行。

Answer 1

打开工作表SHEET1，按ALT+F11，复制下面代码，粘贴，然后按F5运行

Sub test()
r = Sheet2.[A65536].End(xlUp).Row
[A1:A9].Copy Destination:=Sheet2.Range("A" & r + 1)
End Sub

Answer 2

Sub AA()
R = Sheet2.[A65536].End(xlUp).Row
arr = Range("A2:D2")
Sheet2.Cells(R + 1, "a").Resize(1, 4) = arr
End Sub