まさ工房

ExcelVBAとAcessDBを利用した業務支援ツールを作成する工房です

【Excelマクロ・VBA】セル範囲を切り取る(Cut)する方法を教えて!

     f:id:m_kbou:20190828085651p:plain

セル範囲を切り取りする方法について説明します。切り取りするにはCutメソッドを使用し、貼り付け先は引数:Destinationで設定します。ちなみに不連続なセル範囲を切り取る事は出来ないので注意して下さい。

 

【目次】

 

構文

記述方法は、以下の通りとなります。

=======================================================================

Range(”[切り取り範囲]”).Cut Destination: =
                                                   Range(”[貼り付け先]”)

=======================================================================

[説明]:

[切り取り範囲]には、切り取りするセル範囲を記述します。[切り取り範囲]は「”」(ダブルクォーテーション)で囲みます。指定した[切り取り範囲]を切り取りするには、Cutメソッドを記述します。また、切り取りした範囲を指定する場所に貼り付けるには、引数の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セルの範囲を切り取りします。

f:id:m_kbou:20190828081628p:plain

・実行後

※上記で切り取りした範囲を同シート内のE5セルを先頭に貼り付けした後、”切り取り&貼り付けしました。”のメッセージが表示されます。(赤枠がシート名となります)

f:id:m_kbou:20190828081652p:plain

同じシート内にセル範囲を切り取り&貼り付けする方法についての説明は以上です。

 

別シートにセル範囲を切り取り&貼り付けする方法

別シートにセル範囲を切り取り&貼り付けする方法について説明します。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()
    Range("A1:C3").Cut Destination:=Sheets("Sheet2").Range("E5")
    MsgBox "切り取り&貼り付けしました。"
End Sub

-------------------------------------------------

内容は、「A1セル~C3セルの範囲を切り取りしてSheet2シートのE5セルを先頭に貼り付けし、最後にMsgBoxで”切り取り&貼り付けしました。”のメッセージを表示して下さい。」との意味になります。

[実行例]:

・初期表示

※データが入力されているA1セル~C3セルの範囲を切り取りします。

f:id:m_kbou:20190828081628p:plain

・実行後

※上記で切り取りした範囲をSheet2シートのE5セルを先頭に貼り付けした後、”切り取り&貼り付けしました。”のメッセージが表示されます。(赤枠がシート名となります)

f:id:m_kbou:20190828081708p:plain

別シートにセル範囲を切り取り&貼り付けする方法についての説明は以上です。

  

おわりに

今回は、セル範囲を切り取り&貼り付けする方法について説明しました。類似内容にセル範囲をコピー&貼り付けする方法があります。是非一緒に覚えておいて下さい。