excel - 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.Pastefor ActiveSheet.Paste，它将是：

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

这将按照您的意愿进行粘贴。