こんにちは！マクロの記録を卒業して「そろそろ実務でバリバリ動くコードを書きたい！」というステップに進むと、必ず直面するのがパフォーマンスの壁です。
「何万行ものデータを処理すると、急にパソコンがフリーズしたようになる…」
「コードは間違っていないはずなのに、終わるまでにお茶が何杯も飲める…」
そんな経験はありませんか？
その原因、もしかすると`Variant（バリアント）型`の無計画な乱用にあるかもしれません。
今回は、VBAの裏側でメモリがどう動いているのか、その「知られざる真実」を優しく、そして徹底的に紐解いていきましょう。ここをクリアすれば、あなたの書くコードは見違えるほど軽快になりますよ！
—
1. なんでも入る魔法の箱「Variant型」の正体
VBAを始めると、最初に「とりあえず `Dim x` と書いておけばエラーにならないよ」と教わった方も多いのではないでしょうか。
この、文字も数字も日付も、なんでも丸ごと飲み込んでしまう万能のデータ型が `Variant` です。
‘ 型を明示しないと、VBAは自動的にVariant型として扱う
Dim data
data = “東京” ‘ 文字列が入る
data = 100 ‘ 今度は数値が入る
初学者にとって、型エラーを気にせず書けるVariant型はまるで魔法のじゅうたんのようです。しかし、この「何でも屋」の裏側では、VBAのエンジン（COM/OLEオートメーション）がもの凄く重労働を強いられています。
図解：Variant型という「マトリョーシカ構造」
通常のデータ型（Long型など）は、メモリ上に「数値を入れるための専用の箱」をダイレクトに確保します。
- Long型（整数）のメモリ：
`[ 4バイトの純粋な数値スペース ]` （スッキリ！）
一方、Variant型は、データそのものを直接入れるのではなく、「データが何者であるかを示すタグ（型情報）」と「データ本体への案内状（ポインタ）」をセットにした巨大な構造体としてメモリ上に鎮座します。
- Variant型（実態）：
`[ 16バイトの管理ヘッダ（タグ＋フラグ） ] ──> [ 実際のデータ本体 ]`
つまり、Variant型は、中身がたった「1」という数字であっても、通常の4倍（16バイト）のメモリ領域を常に消費しているのです。
—
2. 大量データ処理でなぜフリーズするのか？
「たった16バイトが何さ」と思いましたね？
これが10万行×10列のセルデータ（合計100万セル）になると話は別です。
Excelのワークシートからデータを取得するとき、よくこんな書き方をしていませんか？
‘ シートの全データをVariant型の二次元配列に放り込む
Dim arrData As Variant
arrData = Range(“A1:J100000”).Value
実は、`Range.Value` で取得したセル範囲は、問答無用ですべてVariant型の二次元配列としてメモリに展開されます。これ自体はVBAの仕様であり、ExcelとVBAの通信ロスを減らすための高速化テクニックでもあるため、ここまでは正解です。
問題は、このVariantの配列をループで回して計算や加工を行うときです。
罠：暗黙の型変換（コマーバージョン）の嵐
Variant型に入ったデータに対して何らかの計算を行うと、VBAは毎回こう自問自答します。
> 「あれ？ このVariantの中身、いま文字だっけ？ 数字だっけ？ 計算していいの？ ねぇ、どうすればいいの！？」
この「中身の確認」と「必要に応じた型へのトランスフォーム（変換）」が、100万回のループの中で毎回行われます。さらに、メモリの確保と破棄が高速で繰り返されることで、メモリの断片化（メモリリークに近い状態）が発生し、Windowsのガベージコレクションを圧迫。結果として、PCが唸りをあげてフリーズしてしまうのです。
—
3. 実践！「型」を明示して爆速化させるコード術
ここからは、現場で即戦力となる「メモリに優しいコードの書き方」を見ていきましょう。
悪い例：すべてをVariantのままで処理する
以下のコードは、10万行の数値データに「1」を足していく処理ですが、非常に非効率です。
Sub SlowProcessing()
Dim ws As Worksheet
Set ws = ActiveSheet
‘ Variant型で一気に取得
Dim rawData As Variant
rawData = ws.Range(“A1:A100000”).Value
Dim i As Long
For i = 1 To UBound(rawData, 1)
‘ Variant型のまま計算（内部で毎回型の判定と変換が走る）
rawData(i, 1) = rawData(i, 1) + 1
Next i
ws.Range(“A1:A100000”).Value = rawData
End Sub
良い例：取得したデータを「Long型」の配列にコンバートする
Variantで受け取った後、一度しっかりとした「型付きの変数」や「適切な処理」を経由させることで、VBAのエンジンを安心させ、爆速化を引き出します。
Sub FastProcessing()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim rawData As Variant
rawData = ws.Range(“A1:A100000”).Value
‘ 事前に専用の型を持つ配列を用意する（または計算用のLong変数を用意）
Dim i As Long
Dim val As Long
For i = 1 To UBound(rawData, 1)
‘ 一度Long型変数に明示的にキャスト（代入）する
‘ ※エラーハンドリングや数値判定（IsNumeric）を挟むとなお安全です
If IsNumeric(rawData(i, 1)) Then
val = CLng(rawData(i, 1)) ‘ 明示的な型変換
rawData(i, 1) = val + 1
End If
Next i
ws.Range(“A1:A100000”).Value = rawData
End Sub
> 💡 シニアエンジニアの知見：
> 大規模データを扱う際は、モジュールの先頭に必ず `Option Explicit`（変数の宣言を強制する）を記述し、カウンタ変数は `Integer` ではなく必ず `Long` 型 を使ってください。32bit/64bitのアーキテクチャにおいて、CPUが最も効率的に処理できるのは `Long` 型だからです。
—
4. まとめ：ここをクリアすれば、Excel VBAの基本はバッチリ！
今回のポイントを整理しましょう。
1. Variant型は便利だが、16バイトのオーバーヘッド（管理コスト）がある。
2. 大量データをVariantのまま曖昧に処理し続けると、型変換のオーバーヘッドで動作が重くなる。
3. 大量データは配列で一括取得し、計算時は適切な型に落とし込んでから処理する。
「動けばいいや」から「裏側のメモリまで意識してスマートに動かす」へ。
この視点を持てたあなたは、もうマクロの記録を卒業した立派なVBAエンジニアです。
日々のコーディングで「お、いまメモリを無駄遣いしていないか？」と立ち止まれる余裕を持って、ぜひ実務の自動化を快適に極めていってくださいね。あなたのVBAライフを応援しています！
