【VBAリファレンス】VBA入門総合練習問題6：実務で差がつく「動的範囲のデータ集計と転記」の極意

概要

Excel VBAを習得する過程において、基礎的な文法を覚えた後に立ちはだかる大きな壁が「動的なデータの取り扱い」です。これまで、セルA1に値を書き込むといった静的な操作は学んできたはずですが、実務では「データが毎日増減する」「行数が予測できない」という状況が日常茶飯事です。

本稿では、VBA入門総合練習問題の第6弾として、実務直結型の「動的範囲のデータ集計と転記」をテーマに解説します。この練習問題を通じて、Forループ、最終行の取得、そして条件分岐を組み合わせた「現場で戦えるマクロ」の書き方をマスターしましょう。単に動くコードを書くのではなく、保守性が高く、エラーに強いコードを書くための思考法を伝授します。

詳細解説：動的データ処理の三種の神器

実務において動的なデータを扱う際、必ずマスターしなければならないテクニックが3つあります。

1. 最終行の取得（Endプロパティ）
多くの初心者は `Range(“A1000”)` のように範囲を決め打ちしますが、これは非常に危険です。データが1001行目になった瞬間にマクロは不完全な結果を出力します。以下のコードのように、最下行から上にジャンプする `End(xlUp).Row` を使用するのが鉄則です。

2. Forループによる反復処理
取得した最終行までのデータを一つずつ確認するために `For i = 2 To lastRow` を使用します。この際、カウンタ変数 `i` を使って、セルの行番号を動的に指定するのがポイントです。

3. 条件付き転記（If文の活用）
全てのデータをそのまま転記するのではなく、「特定の条件（例：売上が100万円以上など）」を満たすものだけを別のシートへ書き出す、といった処理を実装します。これにより、データ抽出の自動化が実現します。

サンプルコード：動的範囲集計の実践

以下のサンプルコードは、シート「売上データ」から、金額が10,000円以上のレコードを抽出し、シート「抽出リスト」に転記するプログラムです。

Sub ExtractHighValueSales()
    Dim wsSource As Worksheet, wsDest As Worksheet
    Dim lastRow As Long, i As Long, destRow As Long
    
    ' シートのセット
    Set wsSource = ThisWorkbook.Worksheets("売上データ")
    Set wsDest = ThisWorkbook.Worksheets("抽出リスト")
    
    ' 転記先の初期行を指定
    destRow = 2
    
    ' データ最終行の取得
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 転記先をクリア（既存データの削除）
    wsDest.Range("A2:C" & wsDest.Rows.Count).ClearContents
    
    ' データのループ処理
    For i = 2 To lastRow
        ' 条件分岐：金額（C列）が10000以上の場合
        If wsSource.Cells(i, 3).Value >= 10000 Then
            ' データの転記
            wsDest.Cells(destRow, 1).Value = wsSource.Cells(i, 1).Value ' 日付
            wsDest.Cells(destRow, 2).Value = wsSource.Cells(i, 2).Value ' 商品名
            wsDest.Cells(destRow, 3).Value = wsSource.Cells(i, 3).Value ' 金額
            
            ' 転記先を一つ下へずらす
            destRow = destRow + 1
        End If
    Next i
    
    MsgBox "処理が完了しました。"
End Sub

このコードの肝は `destRow` という変数の扱いです。転記するたびに `destRow = destRow + 1` とすることで、転記先シートの空き行を常に追跡し続けることができます。この考え方は、今後のあらゆる自動化ツールの基礎となります。

実務アドバイス：プロの視点

実務でマクロを運用する際、コードの正しさと同じくらい重要なのが「可読性」と「エラーハンドリング」です。

まず、可読性については、`wsSource` や `wsDest` といった「オブジェクト変数」を必ず使用してください。`Sheets(“Sheet1”)` とコード内に直接書くのは避けるべきです。もしシート名が変更された場合、修正箇所が多すぎてバグの温床になります。オブジェクト変数に代入しておけば、修正は一箇所で済みます。

次に、エラーハンドリングです。例えば、データが全くない状態でマクロを動かした場合、`lastRow` が1（ヘッダー行のみ）となり、ループが正しく動作しない可能性があります。実務レベルでは、`If lastRow < 2 Then Exit Sub` のように、データが存在しない場合に処理を中断するガード節を入れるのがプロの作法です。 また、画面の更新を停止する `Application.ScreenUpdating = False` をコードの冒頭に入れ、処理が終わったら `True` に戻すことで、マクロの実行速度を劇的に向上させることができます。これは大規模なデータ処理を行う際に必須のテクニックです。

まとめ

今回の「VBA入門総合練習問題6」では、動的なデータの集計と転記という、実務で最も頻出するパターンを学習しました。

1. `End(xlUp).Row` で最終行を動的に特定する。
2. オブジェクト変数を用いてシートを管理する。
3. `destRow` を活用し、転記先を制御する。
4. 処理の高速化と安全性を担保する定石を身につける。

これらを習得すれば、あなたの作成するマクロの品質は一段上のレベルへと引き上げられます。VBAは単なるコード記述ではありません。業務のプロセスを理解し、それを論理的にプログラムへと落とし込む「設計力」が問われる仕事です。ぜひ、このサンプルコードを自作のデータで動かし、動作を一つ一つ確認してみてください。エラーが出ても恐れることはありません。デバッグこそが、エンジニアを最も成長させる最高の教材なのです。次のステップとして、ここからさらに「複数の条件」や「別ブックへの書き出し」へと応用を広げていきましょう。あなたのVBAライフが、より効率的で実りあるものになることを心から応援しています。