【VBAリファレンス】VBA中級への登竜門実務直結型総合演習問題集第2弾

概要：VBAの基礎を「武器」に変えるための実践演習

Excel VBAを学習し始めた多くの初学者が直面する壁、それは「個別の構文は理解できたが、それらを組み合わせて業務ツールを作る方法がわからない」という点です。前回の入門編では、単一のセル操作や単純なループ処理を中心に取り上げました。本稿で扱う「総合練習問題2」では、より実務に近い「データの整形」「条件付き抽出」「動的なシート操作」の3要素を融合させた課題に挑みます。

VBAの習得において最も重要なのは、暗記ではなく「処理の論理的な組み立て」です。本記事では、単なるコードの提供にとどまらず、プロフェッショナルがどのような思考プロセスでコードを設計しているかを詳細に解説します。

詳細解説：実務で頻出する「データ加工」のロジック

今回の課題は以下の3点です。
1. 複数シートに分散した売上データを1枚のマスターシートに統合する。
2. 特定の条件（例：売上金額が10万円以上）を満たす行だけを抽出する。
3. 抽出結果を別のブックとして保存し、ファイル名を動的に生成する。

この課題を解決するためには、以下の技術要素を統合する必要があります。

・Worksheetsオブジェクトのループ処理
・最終行を取得するRange.End(xlUp)メソッドの活用
・If文による条件分岐と、セルの値に基づいた動的な行削除またはコピー
・FileSystemObjectまたはWorkbookオブジェクトによるファイル操作

特に重要なのは「最終行の特定」です。多くの初学者は固定の行数（例：100行まで）を指定しがちですが、実務データは日々増減します。常に「現在のデータの終端」を正確に取得することが、エラーのない堅牢なVBAコードを書くための第一歩です。

サンプルコード：売上統合・抽出自動化の実装

以下は、複数のシートから条件に合致するデータを抽出する標準的なコード例です。


Sub ExtractSalesData()
    Dim wsMaster As Worksheet
    Dim ws As Worksheet
    Dim targetRow As Long
    Dim lastRow As Long
    Dim i As Long
    
    ' マスターシートの初期化
    Set wsMaster = ThisWorkbook.Sheets("Master")
    wsMaster.Range("A2:D1000").ClearContents
    targetRow = 2
    
    ' 全シートをループ
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Master" Then
            lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
            
            ' 行ごとのデータ判定
            For i = 2 To lastRow
                ' 売上金額が10万円以上（C列）を抽出
                If ws.Cells(i, 3).Value >= 100000 Then
                    ws.Rows(i).Copy Destination:=wsMaster.Rows(targetRow)
                    targetRow = targetRow + 1
                End If
            Next i
        End If
    Next ws
    
    MsgBox "データの抽出が完了しました。"
End Sub

このコードのポイントは、`ws.Rows.Count`を使用してシート全体の行数から逆算して最終行を求めている点です。また、`targetRow`を変数として持ち回ることで、抽出したデータを常にマスターシートの末尾に追加していく設計にしています。

実務アドバイス：メンテナンス性を高める「定数化」と「コメント」

実務でVBAを使用する場合、自分以外のメンバーがコードを修正する機会が必ず訪れます。その際、上記のようなコードを「そのまま」置いておくのはプロとしては不十分です。以下の点に留意してください。

1. マジックナンバーの排除
コード内の「100000」や「3」といった数値は、定数（Const）として定義してください。例えば、`Const THRESHOLD As Long = 100000` としておくことで、条件が変更になった際に1箇所を直すだけで全体に反映されます。

2. エラーハンドリングの導入
`On Error GoTo ErrorHandler`を記述し、予期せぬファイルが開けない場合や、シートが存在しない場合に備えて終了処理を記述しましょう。

3. 処理速度の最適化
画面の更新を一時的に停止する`Application.ScreenUpdating = False`を冒頭に入れるだけで、処理速度は劇的に向上します。特に数千行を超えるデータ処理を行う際には必須のテクニックです。

まとめ：VBAを「業務の自動化」から「業務の変革」へ

今回の総合練習問題2を通じて、あなたは「ただ動くコード」から「保守性が高く、実務に耐えうるコード」への一歩を踏み出しました。VBAは単なる作業の代行ツールではありません。複雑なロジックをコードに落とし込む過程で、あなた自身が業務の本質を深く理解するきっかけになります。

プロフェッショナルへの道は、一日にして成らず。まずは提示したサンプルコードを自身の環境で実行し、その後、条件を変更したり、列を増やしたりといった「改造」を加えてみてください。エラーが出れば、それはあなたの理解が深まるチャンスです。デバッグを通じて、VBAという言語の挙動を体得していきましょう。

次回のステップとしては、ユーザーフォームを用いたインターフェースの構築や、Outlookと連携したメール自動送信といった、より高度な業務自動化に挑戦することをお勧めします。日々の業務における「面倒な作業」を一つずつコードに置き換えていく過程こそが、エンジニアとしての最大の成長です。VBAは、あなたの時間を創出するための強力なパートナーです。ぜひ、今日から使い倒してください。