初心者OK：VBAで配列の下限を素早く変更する関数解説

下限（最初の番号）の基本と変える理由

配列の下限は、最初のインデックス番号のことです。VBAでは多くの場面で0から始めるか1から始めるかが混在しやすく、LBound関数で下限、UBound関数で上限を確認できます。本稿では、下限という言葉で統一し、初出のみ「最初の番号」と併記します。なぜ下限を変えたいのかというと、外部データの仕様に合わせたいときや、社内のコーディング規約に従って0始まりに統一したいときがあるからです。配列の扱いをそろえると、ループの境界条件が単純になり、バグの混入も減らせます。

また、既存の関数やモジュールが前提とする下限が異なる場合、毎回補正を書くのは面倒です。そこで、必要に応じて配列の下限を目的の値にそろえる関数を用意しておくと、呼び出し元のコードがすっきりします。本記事では1次元配列を対象に、やさしい設計で使い回しやすい関数を紹介します。

LBoundとUBoundの意味

LBoundは配列の最小のインデックス、UBoundは配列の最大のインデックスを返します。Option Baseの設定や配列の宣言方法によって下限は0または1などになります。実行時に確かめたい場合は、LBound(arr)やUBound(arr)で取得します。

下限を変えたい典型ケース（0始まり統一・外部データ合わせ）

0始まりに統一すると、他言語のコード例やビット演算系の処理と整合しやすくなります。一方で、シートの行番号や業務データのIDに合わせて1始まりにしたいときもあります。どちらの場合も、下限を変更できると呼び出し側の責務が軽くなります。

ミニFAQ：はい、下限を変えても要素は消えませんか？

はい。下限を変更しても、配列の要素数を保ったまま並びだけを移し替える設計にすれば、要素が消えることはありません。ただし、再割り当ての過程で一時的にメモリを使う点は理解しておきましょう。

VBAで下限を扱う方法の選択肢

VBAではReDimで配列の境界を再指定できます。ReDim Preserveを使えば中身を保ったまま上限を変えられますが、下限は直接変えられません。つまり、実用上は新しい配列を作り、要素を移し替える方針が基本になります。ここでのポイントは、安全性と読みやすさ、そして速度のバランスです。

配列であるかどうかはIsArrayで判定できますが、Variantが配列を含むかどうかや、未初期化との区別には注意が必要です。VarTypeやNot Not演算のテクニックを併用して、受け取った値が1次元配列であることを確認してから処理に進むと安全です。

ReDim Preserveの基本と制約（次元・コスト）

ReDim Preserveは最終次元の上限しか変更できません。下限を変えたい場合は、同じ長さの新しい配列を用意してから要素を移す必要があります。大きな配列では再割り当てのコストが無視できないため、必要なときにだけ使う設計が望ましいです。

配列チェックの考え方（IsArray/VarTypeの注意）

IsArray(value)がTrueでも、Emptyや未初期化の配列の可能性があります。さらに多次元配列でないことを確認するために、LBound(value, 1)の呼び出しでエラーをトラップし、2次元以上と区別します。本記事の関数は1次元専用とします。

ミニFAQ：いいえ、SafeArrayの下限は直接いじれますか？

いいえ。VBA環境でSafeArrayの構造体を直接操作するのは一般的ではなく安全でもありません。標準の言語機能で新しい配列に要素を移す方法が分かりやすく、将来の保守にも向きます。

関数の設計方針と前提

対象は1次元配列です。引数に配列（Variantで受ける）と新しい下限を渡し、同じ要素数で下限のみを変えた配列を返します。元の配列は変更しない方針とし、呼び出し側で代入するかどうかを選べるようにします。例外的な入力は事前チェックで早めに弾き、メッセージを返して原因を把握しやすくします。

速度は重要ですが、読みやすさと安全性を優先します。最適化は局所的に留め、一般的な配列型（数値、文字列、Variantの配列）で動くことを目指します。

1次元限定にする理由とメリット

多次元配列は次元ごとの境界があり、下限変更の定義が複雑です。1次元に限定すると、呼び出しコードが単純になり、計算量とテストの負担も軽くなります。

ByRef/ByValの方針と戻り値デザイン

副作用を避けるため、引数はByValのVariantで受け、新しい配列を戻り値として返します。必要なら呼び出し側で元の変数に代入します。これにより、失敗時に元の配列が壊れることを防げます。

ミニFAQ：はい、文字列配列やVariant配列でも動きますか？

はい。転送は要素ごとのコピーで行うため、文字列配列やVariant配列にも対応できます。配列の長さが0の場合や未初期化の場合はエラーとして扱います。

1次元配列の下限を変更するVBAコード

以下はコピペして使える関数例です。受け取った1次元配列の要素数を保ち、新しい下限を持つ配列を返します。元の配列は変更されません。

関数の全体像（宣言〜戻り値）

Function Rebase1D(ByVal src As Variant, ByVal newLBound As Long) As Variant Dim n As Long Dim oldL As Long Dim oldU As Long Dim i As Long Dim dst As Variant If Not IsArray(src) Then Err.Raise vbObjectError + 1, , “配列ではありません” On Error GoTo EH oldL = LBound(src) oldU = UBound(src) n = oldU – oldL + 1 If n < 0 Then Err.Raise vbObjectError + 2, , “配列の長さが不正です” ReDim dst(newLBound To newLBound + n – 1) For i = 0 To n – 1 dst(newLBound + i) = src(oldL + i) Next i Rebase1D = dst Exit Function EH: Err.Raise Err.Number, , “Rebase1D: ” & Err.Description End Function

必要な補助プロシージャ（配列チェックなど）

関数内部でIsArrayとLBound/UBoundによるチェックを行っています。多次元配列を受け取った場合は、LBound/UBoundの呼び出しでエラーになることがあります。その場合は呼び出し側で次元数を確認し、1次元の配列だけを渡してください。

ミニFAQ：いいえ、参照渡しと値渡しはどちらでも同じですか？

いいえ。参照渡しにすると、失敗時の影響範囲が広がる可能性があります。ここでは値渡しにして戻り値で受け取る設計にすることで、安全性を高めています。

コード解説：配列チェックとインデックス再配置

最初に配列かどうかをIsArrayで確認し、次にLBoundとUBoundで境界を取得します。要素数は上限と下限の差に1を足した値です。新しい配列は、指定されたnewLBoundを下限として、同じ要素数で確保します。その後、0から要素数-1までの距離でループし、元配列のoldLから順に新配列へ写します。

この方法は単純ですが、要素のコピーが直線的で読みやすく、型の違いにも対応しやすいです。数十万要素の配列でも、VBAで一般的な処理時間の範囲に収まることが多いです。ただし、巨大な配列では時間がかかるため、バッチ処理や分割処理の検討が必要になる場合があります。

旧下限・上限の取得と新旧差分の計算

差分はoldLとnewLBoundの差ではなく、ループでは距離iを使って位置を対応させます。これにより、境界のずれを気にせず一定の手順でコピーできます。

配列チェックで何を確認しているか

配列であること、1次元であること、要素数が0でないことを確認しています。未初期化の配列はLBound/UBoundの呼び出しでエラーになるため、例外として扱われます。実運用では呼び出し前に要素数が想定通りかをチェックすると原因切り分けがしやすくなります。

ミニFAQ：はい、新しい下限が元より大きい場合も動きますか？

はい。新旧の相対関係に関わらず、距離で要素を写すため動作は同じです。元の並び順は保持されます。

要素を1つずつループでコピーする方式との速度差

従来は新しい配列を用意してForループで1つずつ要素を移す方法が一般的でした。本関数も基本はループですが、事前チェックと範囲の算出を最小限にしているため、記述量と読みやすさの面で有利です。速度だけに注目すると、型が単純な場合は大差が出にくく、配列が大きいほど差が表れます。

計測条件（要素数・型・実行環境の例）

例として、要素数100万のLong配列と要素数10万のString配列で比較します。計測はTimer関数でおおまかに行い、各ケースを複数回走らせて中央値を採用します。実行環境や他の処理の有無によって結果は変わります。

結果と考察（比較表：処理時間/コード量/読みやすさ/柔軟性）

結果の傾向を以下にまとめます。数値はイメージであり、実機では異なる結果になる可能性があります。

ミニFAQ：いいえ、小さな配列では大差がないことがありますか？

いいえ。小さな配列ではオーバーヘッドの方が支配的になり、体感差は出にくいです。読みやすさや安全性の観点で統一的に使う価値があります。

使用例とテスト方法

実際の呼び出し例を示します。0始まりから1始まりへ、またはその逆へ下限を変更してみます。テストは要素が識別しやすい配列で行うと、並びが崩れていないことを確認しやすくなります。

使用例：0始まり⇄1始まりへ切り替える

Dim a() As Long ReDim a(0 To 4) a(0)=10: a(1)=20: a(2)=30: a(3)=40: a(4)=50 Dim b As Variant b = Rebase1D(a, 1) Dim c As Variant c = Rebase1D(b, 0) このときbの下限は1、cの下限は0になり、要素の順序は保たれます。

エラー時のふるまいを確かめる手順

未初期化の配列を渡す、空の配列を渡す、多次元配列を渡すなどのケースで、関数がエラーを返すことを確認します。実務では呼び出し側で回避するのが望ましいですが、異常系の把握は重要です。

ミニFAQ：はい、元配列を壊さずに試せますか？

はい。戻り値として新しい配列を受け取る設計なので、元の配列は影響を受けません。検証用の変数に受けて挙動を確かめられます。

注意点と限界

本関数は1次元専用です。多次元配列に対しては設計が異なり、単純な拡張では対応できません。また、非常に大きな配列ではコピーの時間が長くなります。必要に応じて処理を分割するか、並列化できる外部環境を検討してください。

想定外ケース（Empty/未初期化/多次元）

Emptyや未初期化の配列、多次元配列はエラーになります。事前に要素数と次元を確認することで回避できます。

メモリと時間のトレードオフ

新しい配列を確保するため、一時的に元配列と同じ規模のメモリが必要です。メモリに余裕がない環境では、分割やストリーミング的な移し替えを検討してください。

ミニFAQ：はい、実務での安全な適用範囲は限定されますか？

はい。一般的な規模と要件では有効ですが、巨大データや厳密なリアルタイム要件があるシステムでは別のアプローチが必要になることがあります。導入前にテストを行い、要件に合うかを確認してください。