セル範囲のコピー、カット

タイトルのマクロは、以下です。

' セル範囲のコピー、カット
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

マクロ実行前のシートは、以下。

マクロ実行後は、以下となります。

コードの説明

1. サブルーチンの宣言:
   • このサブルーチンは、セル範囲のコピーおよびカット操作を行います。
2. シートへの参照:
   • Sheet2 を対象とした操作を With ステートメント内で行います。
3. セル範囲のコピー:
   • セル範囲 B2:D5 をコピーし、その内容をセル F2 に貼り付けます。
   • .Copy メソッドは、セル範囲を指定したターゲットにコピーします。ターゲットはこの場合、セル F2 です。
4. セル範囲のカット（移動）:
   • セル範囲 B7:D10 をカット（切り取り）し、その内容をセル F7 に移動します。
   • .Cut メソッドは、セル範囲を指定したターゲットにカットして移動します。ターゲットはこの場合、セル F7 です。

補足説明

• .Copy メソッド:
  • .Copy メソッドは、指定したセル範囲をクリップボードにコピーし、オプションで別のセル範囲に貼り付けることができます。
  • ターゲットセル範囲を指定しない場合、クリップボードにコピーされ、次に実行する .Paste 操作で貼り付けが可能です。
• .Cut メソッド:
  • .Cut メソッドは、指定したセル範囲をクリップボードにカットし、オプションで別のセル範囲に移動することができます。
  • ターゲットセル範囲を指定しない場合、クリップボードにカットされ、次に実行する .Paste 操作で貼り付けが可能です。

このコードを実行すると、指定したセル範囲 B2:D5 の内容がセル F2 にコピーされ、セル範囲 B7:D10 の内容がセル F7 に移動されます。この操作により、元のセル範囲 B7:D10 は空白になります。

Follow me!