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

2025-04-13 07:50:47
推荐回答(2个)
回答1:


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

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





回答2:

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