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

それはあなたが望むようにペーストをします。