マクロで切り取りしたものを貼り付ける方法

質問

エクセルのマクロを利用しております。
自動で作業を覚えるマクロボタンで切り取りし貼り付けたのですが
マクロを実行するとデータが元の場所にも残ってしまいました。
結果としてコピーペーストとして出力されました。
私が行いたいことは、切り取りし貼り付けが行いたいのです。
（元の場所にデータは残らない)
以上よろしくお願いします。

以下は私が使用しているマクロになります。

Workbooks("2.xls").Sheets("Sheet1").Select
Columns("Q:Y").Select
Application.CutCopyMode = False
Selection.Copy
Columns("N:N").Select
Selection.Insert Shift:=xlToRight

Sheets("Sheet2").Select
Columns("C:D").Select
Application.CutCopyMode = False
Selection.Copy
Columns("N:N").Select
Selection.Insert Shift:=xlToRight

回答No.1

merlionXX · ベストアンサー

切り取るなら、Selection.Copy　じゃなくてSelection.Cut　ですよ。

Sub test()
Sheets("Sheet1").Columns("Q:Y").Cut
Columns("N:N").Insert Shift:=xlToRight
Application.CutCopyMode = False
Sheets("Sheet2").Columns("C:D").Cut
Columns("N:N").Insert Shift:=xlToRight
Application.CutCopyMode = False
End Sub

かな。

回答No.3

merlionXX

訂正します。

Sub test()
With Sheets("Sheet1")
.Columns("Q:Y").Cut
.Columns("N:N").Insert Shift:=xlToRight
End With
Application.CutCopyMode = False
With Sheets("Sheet2")
.Columns("C:D").Cut
.Columns("N:N").Insert Shift:=xlToRight
End With
Application.CutCopyMode = False
End Sub
でした。

お礼

回答ありがとうございます。
おかげさまで無事に解決できました。

回答No.2

bonaron

Selection.Copy
を
Selection.Cut
に。

お礼

回答ありがとうございます。
おかげさまで無事に解決できました。