なぜMidステートメントによる連結が重要なのか
Excel VBAで大量のデータを処理する際、もっともボトルネックになりやすい処理の一つが「文字列の連結」です。多くの方が使用する「&」演算子は直感的で便利ですが、数万件以上のデータを繰り返して連結すると、処理時間が指数関数的に増大するという弱点があります。
本記事では、メモリを効率的に利用し、大量の文字列を圧倒的な速度で結合できる「Midステートメント」を活用したテクニックを紹介します。
基礎知識：Mid関数とMidステートメントの違い
まず整理しておきたいのが、Mid関数とMidステートメントの違いです。
Mid関数は、文字列の中から一部を取り出す「取得」のための関数です。
一方、Midステートメントは、文字列の特定位置を新しい文字列で「書き換える（代入する）」ための命令です。
構文は以下の通りです。
Mid(対象文字列, 開始位置, 文字数) = 置換文字列
この「指定した場所に上書きする」という性質を利用して、あらかじめ確保した大きな文字列領域に、データを流し込むことで高速化を実現します。
実装の仕組み
&演算子で文字列を連結する場合、VBAは「連結後の新しい文字列を格納するための新しいメモリ領域」を毎回確保し、そこにデータをコピーし直すという処理を繰り返します。これが連結回数が増えるほど、処理が急激に重くなる理由です。
対してMidステートメントによる手法では、最初に「必要な合計文字数」を算出し、そのサイズのメモリ領域を一度だけ確保します。その後、各データを正しい位置へ「上書き」していくため、メモリの再確保やコピーのオーバーヘッドが最小限に抑えられます。
サンプルプログラム：Midステートメントで高速連結
以下のコードは、大量のデータを配列から取得し、Midステートメントで高速に結合する例です。
Sub HighSpeedConcatenate()
Dim Data As Variant
Dim Msg As String
Dim TotalLen As Long
Dim i As Long
Dim CurrentPos As Long
‘ A列のデータを配列に格納（セルへの直接アクセスは低速なため避ける）
Data = Range(“A1:A50000”).Value
‘ 1. まず合計文字数を計算し、メモリ領域を確保する
TotalLen = 0
For i = LBound(Data) To UBound(Data)
TotalLen = TotalLen + Len(Data(i, 1))
Next i
‘ Space関数で必要な長さの空文字領域を作成
Msg = Space(TotalLen)
‘ 2. Midステートメントで各データを上書きしていく
CurrentPos = 1
For i = LBound(Data) To UBound(Data)
Mid(Msg, CurrentPos, Len(Data(i, 1))) = Data(i, 1)
‘ 次の書き込み開始位置を更新
CurrentPos = CurrentPos + Len(Data(i, 1))
Next i
‘ 結果を出力
Range(“B1”).Value = Msg
End Sub
応用と注意点
・可読性のトレードオフ
Midステートメントは高速ですが、コードの見た目が少し複雑になります。数千件程度の少ないデータであれば、無理にMidを使わず「&」演算子を使って可読性を優先することをお勧めします。
・メモリ確保の落とし穴
必ず事前にSpace関数で十分な長さを確保してください。領域が足りないと、意図した文字列が切り捨てられてしまいます。
・セルへのアクセスは最小限に
サンプルコード内の「Data = Range(…).Value」が非常に重要です。セル（Rangeオブジェクト）にループ内で何度もアクセスすると、処理速度は劇的に低下します。必ず一度配列に読み込んでから処理を行うのが、実務における高速化の鉄則です。
大量のログ出力やCSVファイルの生成など、VBAで大規模な文字列処理を行う際は、ぜひこの手法を思い出してください。
