セル範囲を切り取りするにはCutメソッドを使用します。Cutメソッドは不連続なセル範囲を切り取る事はできないため予め注意が必要です。今回はこのCutメソッドを使用したセル範囲の切り取り及び指定場所への貼り付け方法について紹介します。
構文
記述方法は以下の通りとなります。
Range(”[切り取り範囲]”).Cut Destination: =[貼り付け先]
[説明]:
セル範囲を切り取り&貼り付けするには
「Range(”[切り取り範囲]”).Cut Destination: =[貼り付け先]」
と記述します。
[切り取り範囲] | 切り取りするセル範囲を記述します。 ※「”」(ダブルクォーテーション)で囲みます。 |
[貼り付け先] | 貼り付け先のセルを記述します。 |
[記述例]:
Range("A1:C3").Cut Destination:=Range("E5")
Range("A1:C3").Cut Destination:=Sheets("Sheet2").Range("E5")
使い方
使い方について具体的に説明します。
同じシート内にセル範囲を切り取り&貼り付けする方法
同じシート内にセル範囲を切り取り&貼り付けする方法について説明します。
[プログラミング例]:
Sub サンプル()
Range("A1:C3").Cut Destination:=Range("E5")
MsgBox "切り取り&貼り付けしました。"
End Sub
内容は、「A1セル~C3セルの範囲を切り取りして同シート内のE5セルを先頭に貼り付けし、最後にMsgBoxで”切り取り&貼り付けしました。”のメッセージを表示して下さい。」との意味になります。
※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]:
①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。Sheet1シートのA1セル~C3セルの範囲にデータが入力されています。<実行>ボタンをクリックします。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)
②結果は以下の様になります。Sheet1シートのA1セル~C3セルのデータが切り取りされ、同シート内のE5セルを先頭に貼り付けします。また、「切り取り&貼り付けしました。」のメッセージが表示されます。
[サンプル]:
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。
同じシート内にセル範囲を切り取り&貼り付けする方法についての説明は以上です。
別シートにセル範囲を切り取り&貼り付けする方法
別シートにセル範囲を切り取り&貼り付けする方法について説明します。
[プログラミング例]:
Sub サンプル()
Range("A1:C3").Cut Destination:=Sheets("Sheet2").Range("E5")
MsgBox "切り取り&貼り付けしました。"
End Sub
内容は、「A1セル~C3セルの範囲を切り取りしてSheet2シートのE5セルを先頭に貼り付けし、最後にMsgBoxで”切り取り&貼り付けしました。”のメッセージを表示して下さい。」との意味になります。
※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]:
①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。Sheet1シートのA1セル~C3セルの範囲にデータが入力されています。<実行>ボタンをクリックします。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)
②結果は以下の様になります。Sheet1シートのA1セル~C3セルのデータが切り取りされ、「切り取り&貼り付けしました。」のメッセージが表示されます。
③またSheet2シート(別シート)を確認すると、先程切り取ったデータがE5セルを先頭に貼り付けされている事が確認できます。
[サンプル]:
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。
別シートにセル範囲を切り取り&貼り付けする方法についての説明は以上です。
おわりに
今回はセル範囲を切り取り&貼り付けする方法について説明しました。類似内容にセル範囲をコピー&貼り付けする方法があります。是非一緒に覚えておいて下さい。