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

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