VBA剪切和粘贴错误

我试图削减单元格K7 （100）的内容，并将其粘贴到M7使用VBA（见下文），但我不断收到错误（见下文）。 我哪里错了？

Sub CutPaste() Worksheets("Sheet2Test").Activate Range("K7").Select Selection.Cut Range("M7").Select Selection.Paste End Sub 

Answer 1

最好避免Select完全。 用这个

 Worksheets("Sheet2Test").Range("K7").Cut Worksheets("Sheet2Test").Range("M7") 

Answer 2

只需replaceSelection.Paste for ActiveSheet.Paste ，这将是：

 Sub CutPaste() Worksheets("Sheet2Test").Activate Range("K7").Select Selection.Cut Range("M7").Select ActiveSheet.Paste End Sub 

这将做你想要的粘贴。