セル範囲のコピー、カット
タイトルのマクロは、以下です。
' セル範囲のコピー、カット
Private Sub Range_Copy_Cut()
With Sheet1
' セル範囲B2からD5をコピーしてセル範囲F2に貼り付ける
.Range("B2:D5").Copy .Range("F2")
' セル範囲B7からD10をカットしてセル範囲F7に移動する
.Range("B7:D10").Cut .Range("F7")
End With
End Sub
マクロ実行前のシートは、以下。
![](https://blogvba.com/wp-content/uploads/2024/07/キャプチャ2-1.jpg)
マクロ実行後は、以下となります。
![](https://blogvba.com/wp-content/uploads/2024/07/キャプチャ4.jpg)
コードの説明
- サブルーチンの宣言:
- このサブルーチンは、セル範囲のコピーおよびカット操作を行います。
- シートへの参照:
Sheet2
を対象とした操作をWith
ステートメント内で行います。
- セル範囲のコピー:
- セル範囲
B2:D5
をコピーし、その内容をセルF2
に貼り付けます。 .Copy
メソッドは、セル範囲を指定したターゲットにコピーします。ターゲットはこの場合、セルF2
です。
- セル範囲
- セル範囲のカット(移動):
- セル範囲
B7:D10
をカット(切り取り)し、その内容をセルF7
に移動します。 .Cut
メソッドは、セル範囲を指定したターゲットにカットして移動します。ターゲットはこの場合、セルF7
です。
- セル範囲
補足説明
.Copy
メソッド:.Copy
メソッドは、指定したセル範囲をクリップボードにコピーし、オプションで別のセル範囲に貼り付けることができます。- ターゲットセル範囲を指定しない場合、クリップボードにコピーされ、次に実行する
.Paste
操作で貼り付けが可能です。
.Cut
メソッド:.Cut
メソッドは、指定したセル範囲をクリップボードにカットし、オプションで別のセル範囲に移動することができます。- ターゲットセル範囲を指定しない場合、クリップボードにカットされ、次に実行する
.Paste
操作で貼り付けが可能です。
このコードを実行すると、指定したセル範囲 B2:D5
の内容がセル F2
にコピーされ、セル範囲 B7:D10
の内容がセル F7
に移動されます。この操作により、元のセル範囲 B7:D10
は空白になります。