打开工作表SHEET1,按ALT+F11,复制下面代码,粘贴,然后按F5运行
Sub test()
r = Sheet2.[A65536].End(xlUp).Row
[A1:A9].Copy Destination:=Sheet2.Range("A" & r + 1)
End Sub
Sub AA()
R = Sheet2.[A65536].End(xlUp).Row
arr = Range("A2:D2")
Sheet2.Cells(R + 1, "a").Resize(1, 4) = arr
End Sub