在 VBA excel 上复制和粘贴

Question

我找不到任何已经发布的代码来实际复制整行（如表单）

然后粘贴在数据库的第一个空行的底部。

有人可以帮忙吗？ 谢谢

表格 A6:AY

Answer 1

未经手机测试：

Sub CopyPaster()

With ActiveSheet
     .Range("A6").EntireRow.Copy
     .Cells(Application.WorksheetFunction.CountA(.Range("A:A")+3,1).PasteSpecial xlPasteValues 'Plus 3 to account for the two blank cells in column A
End With

End sub