【VBAリファレンス】VBAで業務を自動化する 第6回 チューリップのアレンジ 1/3 効率的なデータ構造と動的配列の活用

概要

業務効率化の現場において、Excel VBAで扱うデータは静的ではありません。日々増減する顧客リストや、予期せぬ列数を持つCSVデータなど、私たちは常に変化するデータと向き合っています。本シリーズ「チューリップのアレンジ」では、まるで春の庭でチューリップを美しく配置するように、バラバラなデータをVBAで整然と整理し、実務で使える強力なツールへと昇華させる手法を解説します。第6回となる今回は、その序章として「動的配列」と「コレクション」を駆使した、柔軟なデータ保持のテクニックに焦点を当てます。固定的なRange操作から脱却し、メモリ上で高速に処理を行うための第一歩を踏み出しましょう。

詳細解説

多くの初学者は、データを加工する際に「セルに対して読み書きを繰り返す」という手法をとります。しかし、これはExcel VBAにおいて最も低速なアプローチです。セルへのアクセスにはオーバーヘッドが発生するため、データ量が増えるほど処理時間は指数関数的に増大します。

プロフェッショナルなVBA開発者は、データをメモリ上の「動的配列」や「コレクションオブジェクト」に一度読み込み、そこで計算処理を行い、最後にまとめて出力するというプロセスを踏みます。これが「チューリップのアレンジ」における基本戦略です。

動的配列（Dynamic Array）とは、実行時にサイズを変更可能な配列のことです。ReDimステートメントを使用することで、データの件数に合わせてメモリ領域を再確保できます。さらに、データの重複排除や、キーと値のペアを管理したい場合には、CollectionオブジェクトやScripting.Dictionaryが非常に有用です。これらを使い分けることで、複雑な抽出作業や集計処理を、数千行規模であっても瞬時に完了させることが可能になります。

サンプルコード

以下のサンプルコードは、ワークシート上のデータを動的配列に格納し、特定の条件でフィルタリングして別のシートへ出力する基礎的な構成です。

Option Explicit

Sub TulipArrangement_Basic()
    ' データの動的な保持と出力のサンプル
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim dataRange As Variant
    Dim resultArr() As Variant
    Dim i As Long, j As Long, count As Long
    
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsDest = ThisWorkbook.Sheets("Sheet2")
    
    ' 範囲を配列として一括取得（高速化の要）
    dataRange = wsSource.Range("A1").CurrentRegion.Value
    
    ' 結果用配列の初期化（最大サイズで確保）
    ReDim resultArr(1 To UBound(dataRange, 1), 1 To UBound(dataRange, 2))
    
    ' 条件（例：1列目が"チューリップ"であるもの）でフィルタリング処理
    count = 0
    For i = 1 To UBound(dataRange, 1)
        If dataRange(i, 1) = "チューリップ" Then
            count = count + 1
            For j = 1 To UBound(dataRange, 2)
                resultArr(count, j) = dataRange(i, j)
            Next j
        End If
    Next i
    
    ' 結果をシートへ一括書き出し
    If count > 0 Then
        wsDest.Range("A1").Resize(count, UBound(resultArr, 2)).Value = resultArr
    Else
        MsgBox "対象データが見つかりませんでした。"
    End If
    
    ' メモリ解放の習慣化
    Erase dataRange
    Erase resultArr
End Sub

実務アドバイス

実務におけるチューリップのアレンジ、すなわちデータ整理で最も重要なのは「メモリ管理」と「エラーハンドリング」です。

第一に、配列を操作する際は、必ずUBound関数とLBound関数を使用して配列の境界を動的に取得してください。固定値でループを回すと、データ構造が変わった瞬間に「インデックスが有効範囲にありません」という致命的なエラーを引き起こします。

第二に、ReDim Preserveの使用には注意が必要です。ReDim Preserveは配列のサイズを拡張する際に既存のデータを保持しますが、処理コストが非常に高い操作です。あらかじめデータの最大件数が予測できる場合は、十分に大きな配列を確保しておくか、あるいはDictionaryオブジェクトへの格納を検討してください。

第三に、シートへの書き出しは「一度だけ」行うのがベストプラクティスです。ループの中で何度もCells(i, j).Value = …と書くのは、プロとして避けなければならない非効率なコードです。配列に加工したデータを最終的にResizeメソッドで一気に転送する。この「一括処理」こそが、Excel VBAのポテンシャルを引き出す鍵となります。

まとめ

第6回「チューリップのアレンジ 1/3」では、配列を用いた高速なデータ処理の基礎を学びました。VBAのコードを書く際、私たちは常に「パソコンの視点」と「Excelの視点」の両方を持つ必要があります。セルを直接触ることは人間には直感的ですが、プログラムには不向きです。メモリ上でデータを整理し、最後に結果をキャンバス（シート）に描く。この考え方が、あなたの作成するツールをより洗練されたものへと変えていくはずです。

次回は、今回学んだ動的配列に「Scripting.Dictionary」の強力な検索機能を組み合わせ、より複雑なデータ構造（二次元的な関連付け）を扱う手法を解説します。チューリップの花びらを一枚ずつ丁寧に整えるように、あなたのコードも細部までこだわり抜いていきましょう。VBAは単なる自動化ツールではありません。それは、業務という複雑な庭を美しく彩るための、最も強力な道具なのです。次回のステップアップへ向けて、まずはこのサンプルコードを自身の環境で動作させ、配列の速さを体感してください。