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

那會像你想要的那樣粘貼。