Variant型配列の「甘い罠」：Range一括転送で発生する型不一致を完全制圧する
Excel VBAにおいて、`Range`オブジェクトを直接ループで叩くのは、もはや「素人」の所業だ。パフォーマンスを追求するなら、`Range.Value`を一度`Variant`型の二次元配列に取り込み、メモリ上で高速処理を行い、最後に一括で書き戻す――これがVBAにおける鉄則である。
しかし、この「高速化の定石」には、多くのエンジニアが現場で血を流すことになる「型不一致の罠」が潜んでいる。
今回は、Variant配列をRangeへ書き戻す際、なぜエラーが発生するのか。そして、それを回避しつつ、保守性と堅牢性を両立させるプロフェッショナルな設計術を伝授する。
—
1. なぜ「Rangeへの書き戻し」で型エラーが起きるのか
Variant型の配列は「何でも入る」魔法の箱だが、Excelのセルには「型」という厳格なルールが存在する。
最も多いエラーは、「数値として扱いたいデータが、内部で文字列として保持されている場合」だ。例えば、CSVから取り込んだデータや、意図せず`CStr()`で変換されたデータが配列に入っていると、書き戻し先のセルの書式やExcelの内部判定と衝突し、実行時エラー13「型が一致しません」を叩き出す。
特に、日付型や空文字（Empty）、エラー値（#N/A等）が混在する配列をそのまま`Range`に投げ込むと、Excel側が処理を拒絶するケースが頻発する。
—
2. 堅牢な転送を実現するための「正規化」戦略
バグを埋め込まないための鉄則は、「配列を書き戻す前に、型を強制的にセルと整合させる」ことだ。
実践的コード：安全な転送テンプレート
このコードは、配列内の各要素を検査し、数値に見えるものは数値へ、日付は日付へと動的にキャスト（型変換）する設計になっている。
‘ @description: Variant配列をRangeへ書き戻す際の型不一致を回避するユーティリティ
Public Sub SafeWriteToRange(ByRef targetRange As Range, ByRef dataArray As Variant)
Dim r As Long, c As Long
Dim v As Variant
‘ 配列の次元数と境界を確認する（堅牢性の基本）
If Not IsArray(dataArray) Then Exit Sub
‘ メモリ上の配列を走査し、型を正規化する
For r = LBound(dataArray, 1) To UBound(dataArray, 1)
For c = LBound(dataArray, 2) To UBound(dataArray, 2)
v = dataArray(r, c)
‘ 空白やエラー値のハンドリング
If IsError(v) Then
dataArray(r, c) = “Error”
ElseIf IsNumeric(v) And Not IsEmpty(v) Then
‘ 数値文字列を真の数値に変換（セルの書式設定への干渉を防ぐ）
dataArray(r, c) = CDbl(v)
End If
Next c
Next r
‘ 一括転送：これで型エラーはほぼ根絶できる
targetRange.Resize(UBound(dataArray, 1), UBound(dataArray, 2)).Value = dataArray
End Sub
—
3. 現場で生き残るための「3つの極意」
① 「Variant」を信じるな、自身の「ロジック」を信じろ
Variantは万能だが、VBAの内部では非常に重い。ループ内での動的な型判定はコストがかかる。もしデータ構造が固定されているなら、`Variant`ではなく、`Double`型や`String`型の配列を別途用意し、最初から型を確定させてから処理する方が、メモリ効率も実行速度も遥かに高い。
② ファイル・DB連携時は「先行キャスト」を徹底せよ
ADODB.Recordsetなどからデータを取得する際、DAOやADOは「列の型」を自動判定するが、これが誤判定を起こすことは珍しくない。外部データを配列に入れる時点で、`CDbl()`や`CDate()`を通すか、あるいは`GetRows`メソッドの後の加工をルーチン化しておくこと。
③ 保守性の高いコードとは「関数の責務が明確なコード」である
今回の`SafeWriteToRange`のように、「データの加工」と「シートへの出力」を疎結合にすること。シートのレイアウトが変わったとしても、加工エンジンさえ維持されていれば、変更範囲は最小限で済む。
—
最後に：エンジニアとしての矜持
「とりあえず動くコード」を書くことは難しくない。しかし、「半年後に誰が見てもバグを出さない堅牢なコード」を書くことこそが、プロフェッショナルの仕事だ。
Excel VBAは古い言語だが、そのアーキテクチャを理解し、メモリと型をコントロールする力は、現代のどのプログラミング言語でも通用する本質的なスキルである。
Variant配列の型エラーに悩まされたら、それは君のコードが一つ上のステージへ進むための通過儀礼だ。この記事の知見を武器に、誰にも文句を言わせない完璧な自動化ツールを構築してほしい。
健闘を祈る。
