VBA剪切和粘贴错误

Question

我正在尝试切割单元格K7 （100）的内容并使用VBA将其粘贴到M7中（见下文），但我一直收到错误（见下文）。 我哪里错了？：

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

只需替换ActiveSheet.Paste Selection.Paste ，它就是：

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

那会像你想要的那样粘贴。