【入門編】大規模プロジェクトにおけるリソース情報の読み込みを高速化する「配列処理」の極意 – Project VBA解析バイブル

Project VBAを掌握する極限の知見：大規模プロジェクトのリソース情報読み込みを配列処理で爆速化する秘訣

皆さん、こんにちは！Project VBAの世界へようこそ。私は、長年VBAとAPIの世界で数々の自動化プロジェクトを成功に導いてきた、いわば「VBAの錬金術師」のような存在です。今日は、皆さんが日頃から直面しているであろう、「数千件ものリソースデータをどうにかして高速に処理したい！」という悩みに、ズバッと切り込んでいきたいと思います。

特に、大規模プロジェクトでは、リソースの登録、割り当て、コスト管理、稼働率調整といった業務が、文字通り「山のように」発生します。そんな時、もしExcelのシートから一つ一つオブジェクトを操作してデータを読み込んでいるとしたら…？想像しただけで、画面が固まりそうですよね。

そこで今回は、そんな非効率な作業から皆さんを解放し、「配列処理」という魔法を使いこなして、リソース情報の読み込みを劇的に高速化する「プロの技」を、基礎から丁寧に解説していきます。マクロの記録から一歩踏み出し、VBAの真髄に触れたいあなたに、きっと役立つはずです。

さあ、一緒にProject VBAの深淵を覗き、コードの力を解き放ちましょう！

—

なぜ「配列処理」が速いのか？ – オブジェクト操作の重みを知る

まず、なぜ配列処理がそんなに速いのか、その理由を理解することが大切です。VBAでExcelのシートを操作する際、私たちは普段、`Range`オブジェクトや`Cells`オブジェクトといった「オブジェクト」を介してデータにアクセスしています。

例えば、A1セルにアクセスするには、`Worksheets(“Sheet1”).Range(“A1”)` のようなコードを書きます。これは、Excelが「A1というセルの場所はどこかな？」「そのセルの値はこれだよ」と、一つ一つ情報を探し出すプロセスを経ているのです。数千件、数万件となると、この「探し出す」という作業が積み重なり、かなりの時間を消費してしまいます。

一方、配列とは、メモリ上に確保された連続した領域に、複数のデータをまとめて格納する仕組みです。Excelのシートからデータを配列として一度に読み込んでしまえば、その後はExcelオブジェクトにアクセスすることなく、メモリ上のデータに対して高速に処理を行うことができます。

例えるなら、

• オブジェクト操作: 図書館で1冊ずつ本を探して読むようなもの。
• 配列処理: 図書館の蔵書を一度にまとめて自分の部屋に運び込み、そこから読みたい本をすぐに取り出して読むようなもの。

どうでしょうか？配列処理が圧倒的に効率的であることが、イメージできたのではないでしょうか。

—

基礎の基礎：配列の宣言とデータ格納

では、具体的にVBAで配列をどのように使うのか見ていきましょう。

1. 配列の宣言

配列を使うには、まずその配列がどのような型のデータを、いくつ格納するのかを宣言する必要があります。

‘ Variant型の配列を宣言 (要素数は後で指定)
Dim myArray() As Variant

‘ Integer型の配列を宣言 (要素数100個)
Dim myIntArray(1 To 100) As Integer

• `Dim myArray() As Variant`: `()`で囲まれた配列は「動的配列」と呼ばれ、後から要素数を変更できます。`Variant`型は、数値、文字列、日付など、あらゆる型のデータを格納できる万能選手です。
• `Dim myIntArray(1 To 100) As Integer`: これは「静的配列」と呼ばれ、宣言時に要素数が固定されます。`1 To 100`とすることで、インデックス（添え字）を1から100まで使用できるようになります。VBAの配列のデフォルトは0から始まるため、`1 To`と明示的に指定することが多いです。

2. 動的配列の要素数の指定

動的配列の場合、`ReDim`ステートメントを使って要素数を指定します。

Sub DeclareDynamicArray()

Dim myArray() As Variant

‘ 要素数を10個に指定
ReDim myArray(1 To 10)

‘ 要素数を50個に変更 (既存のデータは消えるので注意！)
ReDim myArray(1 To 50)

End Sub

【陥りやすいエラー】
`ReDim`で要素数を変更すると、それまで格納されていたデータはすべて消えてしまいます。もしデータを保持したまま要素数を増やしたい場合は、`ReDim Preserve`を使いますが、これは最後の次元（配列の右側のカッコ）しか保持できません。

3. 配列へのデータ格納

宣言した配列にデータを格納するには、インデックスを指定して代入します。

Sub StoreDataInArray()

Dim myStringArray(1 To 3) As String

‘ 配列の各要素にデータを格納
myStringArray(1) = “りんご”
myStringArray(2) = “ばなな”
myStringArray(3) = “みかん”

‘ 格納されたデータを確認
Debug.Print myStringArray(1) ‘ 出力: りんご
Debug.Print myStringArray(2) ‘ 出力: ばなな
Debug.Print myStringArray(3) ‘ 出力: みかん

End Sub

—

大規模プロジェクトの救世主：シートから配列への一括読み込み

さて、いよいよ本題です。数千件のリソースデータを、いかに効率よく配列に読み込むか。その鍵は、`Range`オブジェクトの`.Value`プロパティと、二次元配列の活用にあります。

1. `Range.Value`で一括取得

Excelのシートの範囲を指定して`.Value`プロパティを取得すると、その範囲のデータが二次元配列として返ってきます。これが、オブジェクト操作を回避する最も強力な方法です。

例えば、”Sheet1″のA1セルからC1000セルまでのデータを読み込みたい場合、以下のように記述します。

Sub ReadSheetDataIntoArray()

Dim ws As Worksheet
Dim dataRange As Range
Dim dataArray As Variant ‘ 戻り値はVariant型の二次元配列になる

‘ 対象のシートを指定
Set ws = ThisWorkbook.Worksheets(“Sheet1”)

‘ 読み込みたい範囲を指定 (例: A1からC1000)
Set dataRange = ws.Range(“A1:C1000”)

‘ .Valueプロパティで範囲のデータを一括で配列に読み込む
‘ dataArrayは、(1 To 1000, 1 To 3) のような二次元配列になる
dataArray = dataRange.Value

‘ 配列の要素数を確認 (デバッグウィンドウに出力)
‘ UBound関数で配列の最大インデックスを取得できる
Debug.Print “行数: ” & UBound(dataArray, 1)
Debug.Print “列数: ” & UBound(dataArray, 2)

‘ 例として、1行目1列目のデータを取得 (A1セルの値)
Debug.Print “A1セルの値: ” & dataArray(1, 1)

‘ 例として、5行目3列目のデータを取得 (C5セルの値)
Debug.Print “C5セルの値: ” & dataArray(5, 3)

End Sub

【解説】

• `dataArray = dataRange.Value`: この一行で、指定した範囲のデータがすべて`dataArray`という二次元配列に格納されます。Excelのシートの行数と列数が、そのまま配列の次元になります。
• `UBound(dataArray, 1)`: 配列の第一次元（行）の最大インデックスを取得します。
• `UBound(dataArray, 2)`: 配列の第二次元（列）の最大インデックスを取得します。
• `dataArray(行インデックス, 列インデックス)`: 配列から特定のデータにアクセスします。

【ここがポイント！】
この`.Value`プロパティによる一括取得は、VBAで最も高速なデータ読み込み方法の一つです。数千、数万件のデータでも、驚くほど短時間でメモリ上に展開できます。

2. 読み込んだ配列データの処理

配列にデータが格納されたら、あとはループ処理で各要素を加工したり、条件に合うデータを抽出したりできます。

Sub ProcessResourceData()

Dim ws As Worksheet
Dim dataRange As Range
Dim dataArray As Variant
Dim i As Long ‘ 行をループするための変数
Dim resourceName As String
Dim resourceCost As Double
Dim processedData As String ‘ 処理結果を格納する文字列

‘ 対象シートと範囲を指定
Set ws = ThisWorkbook.Worksheets(“ResourceData”) ‘ リソースデータシートを想定
Set dataRange = ws.Range(“A2:D5000”) ‘ A列:リソース名, B列:コスト, C列:担当者, D列:ステータス (例)

‘ データを配列に一括読み込み
dataArray = dataRange.Value

processedData = “【コストが高いリソースリスト】” & vbCrLf

‘ 配列をループしてデータを処理 (1行目から開始)
For i = LBound(dataArray, 1) To UBound(dataArray, 1)

‘ 各列のデータを変数に格納 (可読性向上のため)
‘ 配列のインデックスは 1 から始まることに注意
resourceName = dataArray(i, 1) ‘ A列:リソース名
‘ B列のコストが数値であることを確認してから代入
If IsNumeric(dataArray(i, 2)) Then
resourceCost = CDbl(dataArray(i, 2)) ‘ B列:コスト
Else
resourceCost = 0 ‘ 数値でない場合は0とする (エラー処理の一例)
End If

‘ 例: コストが10000以上のリソースを抽出
If resourceCost >= 10000 Then
processedData = processedData & “- ” & resourceName & ” (コスト: ” & Format(resourceCost, “#,

0″) & “)” & vbCrLf

End If

Next i

‘ 処理結果をメッセージボックスで表示
MsgBox processedData, vbInformation, “コスト分析結果”

End Sub

【解説】

• `For i = LBound(dataArray, 1) To UBound(dataArray, 1)`: 配列の行数分だけループします。`LBound`は配列の最小インデックスを取得します。
• `dataArray(i, 1)`: ループ中の現在の行 (`i`) の、1列目（A列）のデータを取得します。
• `IsNumeric()`と`CDbl()`: コストデータが数値であることを確認し、数値型（Double）に変換しています。これにより、計算や比較が正しく行えます。
• `Format(resourceCost, “#,
  

  0″)`: 数値を3桁区切りの表示形式に整形しています。

【ここがポイント！】
配列にデータが入ってしまえば、あとは`For Next`ループでメモリ上のデータを高速に処理できます。シートのセルを一つ一つ参照するよりも、格段に処理速度が向上します。

—

陥りやすいエラーとその回避策

配列処理を使いこなす上で、いくつか注意しておきたい点があります。

1. 配列のインデックス（添え字）

• 問題: VBAの配列は、デフォルトでは0から始まります。しかし、`Range.Value`でシートから読み込んだ配列は、1から始まります。この違いを意識しないと、エラーの原因になります。
• 回避策:
• シートから読み込んだ配列を扱う際は、常に`1`から始まるものとしてインデックスを指定しましょう。
• 自分で配列を宣言する際は、`Dim myArray(1 To 100) As Variant`のように、`1 To`と明示的に指定すると、混乱を防げます。
• `LBound()`と`UBound()`関数を適切に使い、配列の実際のインデックス範囲を動的に取得するようにしましょう。

2. `Variant`型と型変換

• 問題: `Range.Value`で取得した配列は`Variant`型になります。この中には、数値、文字列、日付、エラー値など、様々な型のデータが混在しています。そのまま計算しようとするとエラーになることがあります。
• 回避策:
• 配列から値を取り出す際には、`IsNumeric()`や`IsDate()`などの型チェック関数でデータ型を確認しましょう。
• 必要に応じて、`CInt()`, `CLng()`, `CDbl()`, `CStr()`, `CDate()`などの型変換関数を使って、意図したデータ型に変換してから処理を行いましょう。
• エラー値 (`#N/A` など) が含まれる可能性も考慮し、`IsError()`関数でチェックすることも重要です。

3. 空白セルやデータのない範囲

• 問題: 範囲内に空白セルが多い場合や、指定した範囲にデータが全くない場合、意図しない結果になることがあります。
• 回避策:
• 配列を読み込む前に、対象範囲にデータが存在するかどうかを確認する処理を加えると、より堅牢なコードになります。
• `dataArray`が空（`IsEmpty(dataArray)`がTrue）でないかチェックするのも有効です。

4. メモリ使用量

• 問題: 非常に大規模なデータ（例えば、数十万行、数百列）を一度に配列として読み込もうとすると、PCのメモリを大量に消費し、動作が遅くなったり、エラーが発生したりする可能性があります。
• 回避策:
• 可能な限り、処理に必要な列だけを`Range`オブジェクトで指定して読み込むようにしましょう。（例: `ws.Range(“A1:A1000, C1:C1000, E1:E1000”)` のように、複数範囲をカンマで区切って指定し、それらを結合した配列として取得することも可能です。）
• どうしてもメモリが足りない場合は、データを分割して処理する、またはExcelの機能ではなく、データベースや他のツールを検討する必要があるかもしれません。

—

まとめ：配列処理をマスターして、Project VBAの達人へ

いかがでしたでしょうか？

今回は、大規模プロジェクトにおけるリソース情報処理の課題に対し、「配列処理」という強力な武器をご紹介しました。`Range.Value`プロパティを使ってシートのデータを一括で配列に読み込み、その後はメモリ上で高速に処理する。この流れをマスターすれば、皆さんのProject VBAのスキルは格段に向上することでしょう。

• オブジェクト操作の重さを理解する。
• `Range.Value`でデータを一括取得する。
• 二次元配列のインデックス（1から始まる！）を意識する。
• 型チェックと型変換を適切に行う。

これらのポイントをしっかり押さえておけば、数千件、数万件のリソースデータも怖くありません。

Project VBAの世界は奥深く、まだまだたくさんのテクニックがありますが、まずはこの「配列処理」をあなたの武器に加えてみてください。きっと、日々の業務が驚くほど効率化され、「もっと早く知りたかった！」と思っていただけるはずです。

これからも、皆さんのProject VBAライフがより豊かになるような、実践的で本質的な知見を共有していきたいと思います。

それでは、また次回の記事でお会いしましょう！Happy Coding!