【Excel VBA入門】まとめ｜「For Each ~ Next」による別シートの一括コピー

「それぞれのシートにある月次データを一括してまとめる方法」の例をとおして、複数のワークシートをまとめて集計するときのマクロの作り方をご紹介します。

今回はおもに「For Each ~ Next」と「If ~ Then」を使います。
実用的な内容に近づいていますのでプログラムの動きのイメージを持てるようにしておきましょう。

こちらでご紹介するおもな内容です。

「For Each ~ Next」の実用的な使い方
「If ~ Then」の実用的な使い方
最終行を取得する方法

シートの構成｜複数シートのまとめ
事前準備
1. 変数の設定
  1. 集計用シート
  2. 各ワークシート
コードの構成｜「For Each ~ Next」と「If ~ Then」
まとめ

シートの構成｜複数シートのまとめ

それでは、集計用シート「月集計」に各月のデータを反映させるマクロを作成します。
月次の売上データを一覧集計するために使います。

こちらが集計用のシートです。

こちらが各月のデータです。
1月、２月、３月のシートを各月の売上データとします。

事前準備

まずは変数設定が必要なところを考えましょう。

こちらの場合、月別シートと集計用シートの値が状況によって変動することが考えられます。

「月別シート」は月数を重ねるごとに追加されますし、その月の取引量によって最終行もまちまちです。
また「集計用シート」はその月の取引量によって最終行が変動しますね。

変数の設定

それでは変数の設定をしておきましょう。

集計用シート

「月別シート」の貼付ごとに最終行が変わるため設定をします。

    Dim last_row_shukei As Long

まずはこの段階では、「変数の型」のみを設定します。

「月別シート」の貼付ごとに最終行の値が変化するため、のちほど繰返処理によって最終行の値をつど更新させる設定をします。

コードの先頭部分で最終行の値を固定してしまうと、繰返処理によって同じ場所に何度も「月別シート」の値が貼付されることになってしまうためです。

各ワークシート

月数が増えるごとにシート数が変わるため設定します。

    Dim last_row_tsukibetsu As Long
    Dim ws As Worksheet

こちらも「変数の型」のみの設定をします。

先ほどとおなじ理由で、コードの先頭部分で最終行の値を固定してしまうと、繰返処理の貼付によって行が下に追加されていくのではなく、同じ場所に上書きが繰り返されてしまうためこの時点では最終行の設定はおこないません。

コードの構成｜「For Each ~ Next」と「If ~ Then」

まずはコード全体をご確認ください。
のちほどポイントごとに内容を解説します。

Sub ws_shukei()
    Dim last_row_tsukibetsu As Long
    Dim ws As Worksheet
    Dim last_row_shukei As Long
        
    For Each ws In Worksheets
        If ws.Name <> "月集計" Then
            '手順1.「シート：月別」からデータをコピーする
            last_row_tsukibetsu = ws.Cells(Rows.Count, 1).End(xlUp).Row
            ws.Select
            Range(Cells(2, 1), Cells(last_row_tsukibetsu, 3)).Copy
            
            '手順2.「シート：月集計」にペーストする
            last_row_shukei = Worksheets("月集計").Cells(Rows.Count, 1).End(xlUp).Row + 1
            Worksheets("月集計").Select
            Cells(last_row_shukei, 1).Select
            ActiveSheet.Paste
        End If
    Next
            MsgBox ("マクロ完了")
End Sub

こちらが実行結果です。