在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