セル範囲を切り取りし指定場所に貼り付けする方法について説明します。切り取りするにはCutメソッドを使用します。不連続なセル範囲を切り取る事はできないので注意して下さい。
【目次】
構文
記述方法は、以下の通りとなります。
=======================================================================
Range(”[切り取り範囲]”).Cut Destination: =[貼り付け先]
=======================================================================
[説明]:
セル範囲を切り取り&貼り付けするには「Range(”[切り取り範囲]”).Cut Destination: =[貼り付け先]」と記述します。[切り取り範囲]には切り取りするセル範囲を記述します。[切り取り範囲]は「”」(ダブルクォーテーション)で囲みます。また、切り取りした範囲を貼り付けるには、Destination:=の後の[貼り付け先]に貼り付け先セルを指定します。内容を纏めると、「[切り取り範囲]で切り取りしたデータを、[貼り付け先]で指定したセルに貼り付けて下さい。」との意味になります。
[記述例]:
Range("A1:C3").Cut Destination:=Range("E5")
Range("A1:C3").Cut Destination:=Sheets("Sheet2").Range("E5")
使い方
使い方について、具体的に説明していきます。
同じシート内にセル範囲を切り取り&貼り付けする方法
同じシート内にセル範囲を切り取り&貼り付けする方法について説明します。
[記述例]:
※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。
-------------------------------------------------
Sub サンプル()
Range("A1:C3").Cut Destination:=Range("E5")
MsgBox "切り取り&貼り付けしました。"
End Sub
-------------------------------------------------
内容は、「A1セル~C3セルの範囲を切り取りして同シート内のE5セルを先頭に貼り付けし、最後にMsgBoxで”切り取り&貼り付けしました。”のメッセージを表示して下さい。」との意味になります。
[実行例]:
(実行前)
※データが入力されているA1セル~C3セルの範囲を切り取りします。
(実行後)
※上記で切り取りした範囲を同シート内のE5セルを先頭に貼り付けした後、”切り取り&貼り付けしました。”のメッセージが表示されます。(赤枠がシート名となります)
同じシート内にセル範囲を切り取り&貼り付けする方法についての説明は以上です。
別シートにセル範囲を切り取り&貼り付けする方法
別シートにセル範囲を切り取り&貼り付けする方法について説明します。
[記述例]:
※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。
-------------------------------------------------
Sub サンプル()
Range("A1:C3").Cut Destination:=Sheets("Sheet2").Range("E5")
MsgBox "切り取り&貼り付けしました。"
End Sub
-------------------------------------------------
内容は、「A1セル~C3セルの範囲を切り取りしてSheet2シートのE5セルを先頭に貼り付けし、最後にMsgBoxで”切り取り&貼り付けしました。”のメッセージを表示して下さい。」との意味になります。
[実行例]:
(実行前)
※データが入力されているA1セル~C3セルの範囲を切り取りします。
(実行後)
※上記で切り取りした範囲をSheet2シートのE5セルを先頭に貼り付けした後、”切り取り&貼り付けしました。”のメッセージが表示されます。(赤枠がシート名となります)
別シートにセル範囲を切り取り&貼り付けする方法についての説明は以上です。
おわりに
今回はセル範囲を切り取り&貼り付けする方法について説明しました。類似内容にセル範囲をコピー&貼り付けする方法があります。是非一緒に覚えておいて下さい。