Question

我正在尝试编写一个简单的复制和粘贴宏，直到最后一行。当它到达最后一行时，它表示粘贴功能不起作用。我真的很困惑，为什么会发生这种情况，对此的任何帮助都将非常感激。

Sheet2.Columns("A:B").Insert Shift:=xlToRight
Sheet2.Columns("F:G").Cut
Sheet2.Activate
Columns("A:B").Select
ActiveSheet.Paste
Sheets("SourceData").Columns("A:B").Insert Shift:=xlToRight
Sheets("SourceData").Activate
Columns("A:B").Select
ActiveSheet.Paste                   <-LINE THAT THROWS ERROR

我的错误讯息是Paste Method of Worksheet Class failed

Answer 1

你需要第二个剪切（或复制）命令来配合你的第二个Activesheet.Paste命令

Answer 2

您收到错误是因为您已经使用第一个＆＃34;剪切/粘贴＆＃34;清空了剪贴板。操作。

请改为尝试：

Sheet2.Columns("A:B").Insert Shift:=xlToRight
Sheet2.Columns("F:G").Cut
Sheet2.Activate
Columns("A:B").Select
ActiveSheet.Paste
Activesheet.Columns("A:B").Copy

Sheets("SourceData").Columns("A:B").Insert Shift:=xlToRight
Sheets("SourceData").Activate
Columns("A:B").Select
ActiveSheet.Paste

VBA复制和粘贴方法不起作用

2 个答案: