首页 > 解决方案 > 在 VBA excel 上复制和粘贴

问题描述

我找不到任何已经发布的代码来实际复制整行(如表格)

在此处输入图像描述

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

有人可以帮忙吗?谢谢

表格 A6:AY

标签: excelvba

解决方案


未经手机测试:

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 

推荐阅读