VBA复制和粘贴方法不起作用
我正在试图写一个简单的复制和粘贴macros，它的工作，直到最后一行。 当它碰到最后一行时，它说粘贴function将不起作用。 我真的很困惑，为什么发生这种情况，任何帮助将不胜感激。
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
您需要第二次切割（或复制）命令去与您的第二个Activesheet.Paste命令
您正在收到错误，因为您已经通过第一个“剪切/粘贴”操作清空了剪贴板。
试试这个：
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