VBA复制粘贴方法不起作用_Vba_Excel_Clipboard_Copy Paste

VBA复制粘贴方法不起作用

vba excel

VBA复制粘贴方法不起作用,vba,excel,clipboard,copy-paste,Vba,Excel,Clipboard,Copy Paste,我试图写一个简单的复制粘贴宏，它一直工作到最后一行。当它到达最后一行时，它表示粘贴功能将不起作用。我真的很困惑为什么会发生这种情况，如果能在这方面提供帮助，我将不胜感激 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").I

我试图写一个简单的复制粘贴宏，它一直工作到最后一行。当它到达最后一行时，它表示粘贴功能将不起作用。我真的很困惑为什么会发生这种情况，如果能在这方面提供帮助，我将不胜感激

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

Sheet2.列（“A:B”）。插入Shift:=xlToRight
表2.立柱（“F:G”）.切割
表2.激活
列（“A:B”）。选择
活动表。粘贴
工作表（“源数据”）。列（“A:B”）。插入移位：=xlToRight
工作表（“源数据”）。激活
列（“A:B”）。选择
ActiveSheet.Paste您需要第二个剪切（或复制）命令才能与第二个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   

实际错误消息是什么？工作表类的粘贴方法失败
您没有要粘贴的内容，当您在sourcedata sheet中插入列时，您将丢失选择（剪切列F:G）