【VBAリファレンス】VBA練習問題練習問題27（データ分割し別ブック保存）

VBAによるデータ分割と別ブック保存の技術的アプローチ

業務現場において、巨大なマスターデータを特定の条件（部署ごと、担当者ごと、あるいは日付ごと）で抽出し、それぞれを独立したExcelファイルとして保存する作業は、非常に頻繁に発生する定型業務です。手作業で行えば、フィルタリング、コピー、新規ブック作成、保存という一連のプロセスはミスを誘発しやすく、膨大な時間を浪費します。

本稿では、VBAを活用して「データセットを動的に分割し、それぞれを新しいワークブックとして保存する」ための堅牢なアルゴリズムを解説します。単にコードを動かすだけでなく、プロフェッショナルとして考慮すべきメモリ管理やエラーハンドリング、パス操作のベストプラクティスを網羅します。

詳細解説：ロジックの設計と最適化

データを分割して保存する処理を実装する際、最も重要なのは「一意のキー（分割基準）」をどのように抽出するかという点です。

1. 重複排除の技術
データ列から一意の値を抽出するには、Dictionaryオブジェクト（Scripting.Runtime）を利用するのが定石です。配列にデータを読み込み、Dictionaryに格納することで、高速に重複のないリストを作成できます。

2. フィルタリングの自動化
「AdvancedFilter（フィルタオプション）」または「AutoFilter」を使用します。大規模データの場合はAutoFilterよりもAdvancedFilterの方が、転記先を制御しやすいため推奨されます。

3. ブックの生成と保存
新規ブックを作成する際は、`Workbooks.Add`を使用します。保存時には`Application.DisplayAlerts = False`を一時的に設定し、同名ファイルが存在する場合の上書き確認ダイアログを抑制する必要があります。

4. リソースの解放
VBAにおいてオブジェクト変数の解放は、特にループ処理の中で重要です。メモリリークを防ぐため、ループ内で生成したワークブックオブジェクトは必ず`Close`し、`Nothing`を代入して明示的にメモリを解放する習慣をつけましょう。

サンプルコード：汎用的なデータ分割エンジン

以下のコードは、アクティブシートの特定の列を基準にして、データを分割し、指定フォルダに保存する実務仕様のプロシージャです。

Option Explicit

Sub SplitDataToNewWorkbooks()
    Dim wsSource As Worksheet
    Dim lastRow As Long, i As Long
    Dim dict As Object
    Dim key As Variant
    Dim folderPath As String
    Dim wbNew As Workbook
    
    ' 1. 設定：分割基準列（例：2列目）と保存先
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    folderPath = ThisWorkbook.Path & "\Output\"
    
    ' フォルダが存在しなければ作成
    If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath
    
    ' 2. 重複のないキーリストを作成
    Set dict = CreateObject("Scripting.Dictionary")
    lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To lastRow
        key = wsSource.Cells(i, 2).Value ' 2列目がキー
        If Not dict.Exists(key) Then dict.Add key, Nothing
    Next i
    
    ' 3. 分割処理
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    For Each key In dict.Keys
        ' 新規ブック作成
        Set wbNew = Workbooks.Add
        
        ' フィルタをかけてコピー
        wsSource.Range("A1").AutoFilter Field:=2, Criteria1:=key
        wsSource.UsedRange.SpecialCells(xlCellTypeVisible).Copy
        
        ' 新規シートへ貼り付け
        With wbNew.Sheets(1)
            .Range("A1").PasteSpecial Paste:=xlPasteAll
            .Columns.AutoFit
        End With
        
        ' 保存して閉じる
        wbNew.SaveAs Filename:=folderPath & key & ".xlsx"
        wbNew.Close SaveChanges:=False
        
        ' フィルタ解除
        wsSource.AutoFilterMode = False
    Next key
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    MsgBox "分割保存が完了しました。", vbInformation
End Sub

実務におけるアドバイス：プロの視点

このスクリプトを実務で運用する際には、以下の3点に注意してください。

第一に「データの型」です。Dictionaryのキーに使用する値が、数値なのか文字列なのかによって、後のフィルタリング処理で挙動が不安定になることがあります。特にコード番号などで「001」のような先頭ゼロがある場合、Excelが数値として認識してしまうと不整合が起きます。キー取得時には必ず`CStr()`等で型を明示的に変換することをお勧めします。

第二に「エラーハンドリング」です。ファイル名として使用できない文字（/ \ : * ? ” < > |）がキーに含まれている場合、`SaveAs`メソッドで確実にエラーが発生します。ファイル名に使用できない文字を置換する関数（`Replace`等）を事前に噛ませるのがプロの作法です。

第三に「処理のパフォーマンス」です。データ件数が数万行を超える場合、`UsedRange`のコピーはメモリを大量に消費します。その場合は、配列（Array）にデータを格納し、条件に合致する行のみを新しいシートへ書き込む「配列処理」へ移行することで、処理速度を劇的に向上させることが可能です。

まとめ

データ分割処理は、VBAによる自動化の恩恵を最も実感しやすいタスクの一つです。今回紹介したDictionaryによるキー抽出と、AutoFilterを用いた転記の組み合わせは、あらゆるデータ処理の基本形となります。

コードを記述する際は、「なぜその手法をとるのか」という根拠を常に持ち、可読性と保守性を意識してください。特に、将来的にデータの列構成が変わったとしても、コードの修正箇所を最小限に抑えられるよう、定数定義を分離するなどの工夫が重要です。

本技術を習得することで、単純作業から解放され、より付加価値の高い分析業務やシステム設計に時間を割くことができるようになります。まずは上記のコードをベースに、ご自身の業務環境に合わせてカスタマイズしてみてください。VBAの可能性は、こうした小さな自動化の積み重ねの中にこそ存在します。