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

只需将Selection.Paste替换为ActiveSheet.Paste，即可：

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

那可以按你的意愿进行粘贴。