LWP | 一件だけで止まるマクロ

Copyright © 2026 LWP 山中 一弘

本資料は、出典を明記いただければ、商用・非商用を問わず、ご自由に複製・改変・再配布していただけます。なお、著作権表示は改変せず、そのまま記載してご利用くださいますようお願いいたします。

今日は一件だけ。コイ丸先輩の軽いひと言で始まった確認作業が、なぜか終わりません。昨日は動いたマクロが、対象を減らすと止まってしまうのです。ココさんが試してみると、ますます不思議な結果が見えてきました。

舞台は、セルから受け取った値を、行と列のある配列として読むExcel VBAの動作確認。架空の職場の一幕です。対象は一続きのセル範囲とし、Range.Value2で値を読み取ります。

少ない仕事なら、確認も簡単。その見通しが、実行ボタンを押したところで外れます。

図1｜件数を減らすと止まる、配列を前提にした処理。

ココさんは、縦にも横にも範囲を変えて比較します。動く条件が分かっても、そのまま対処にしてよいとは限りません。

図2｜読む範囲を広げれば動いても、必要な対象まで変えてしまう。

呼ばれたシャケもんが確かめたのは、セルの中身に加えて、マクロが受け取る値の形でした。

図3｜単独の値10を、1行1列の配列に包む。中身は10のまま。

入口で形をそろえて、もう一度確認します。ようやく、件数の少なさが素直にありがたくなったと思ったら……。

図4｜処理対象は増やさず、受け渡す形をそろえる。

対象が少ないからといって、プログラムへの渡され方まで同じとは限りません。1セルと複数セルの違いを入口で吸収すると、後の処理は同じ行・列の扱いにそろえられます。

一続きの範囲をRange.Value2で読むと、1セルでは単独の値が返り、複数セルでは二次元配列が返ります。1行だけ、あるいは1列だけでも、複数セルなら二次元です。配列だと思って単独の値をdata(1,1)のように読むと、エラーになります。

TakiLibのrngEnsureDim2Arrayは、Range.Value2から受け取った単独の値を1行1列の配列に包み、配列はそのまま返します。シートにセルや架空のデータを足す操作ではありません。なお、任意の一次元配列を二次元に変換する関数ではありません。今回の使い方は「一続きの範囲のValue2を渡す」ことが前提です。

Option Explicit

Public Function SampleRangeShape() As String

    Dim data As Variant

    data = rngEnsureDim2Array( _

        ThisWorkbook.Worksheets(1).Range("A1").Value2)

    SampleRangeShape = UBound(data, 1) & "行 " & _

                       UBound(data, 2) & "列"

End Function

Public Function rngEnsureDim2Array(a_data)

    If typeIsPureArray(a_data) Then

        rngEnsureDim2Array = a_data

    Else

        ReDim xrbuff(1 To 1, 1 To 1)

        xrbuff(1, 1) = a_data

        rngEnsureDim2Array = xrbuff

    End If

End Function

• Microsoft Learn：Range.Value — 複数セルから返る二次元配列と、複数領域の注意。

• Microsoft Learn：Range.Value2 — Valueとの違いはCurrency・Date型を使わない点。

• Microsoft Learn：UBound関数 — 指定した次元の配列上限。

• TakiLib Ver3.5.4：rngEnsureDim2Arrayと配列判定の実装を確認。SampleRangeShapeは、TakiLibを呼び出すこの記事用の例です。rngEnsureDim2Arrayは、原典の解説コメントを省略して掲載しています。

• 動作確認：2026年9月9日、Windows版Excel 16.0 Build 20326。1セル・縦列・横行・長方形、空セル・数式・セルエラー、一次元配列の反例、掲載コードを含む14項目を確認しました。結合セル、複数領域、可視セルだけの範囲は扱っていません。

人物と出来事はフィクションです。図版はLWPのキャラクター参照を用いてCodexの画像生成機能で作成し、掲載文字・人物・技術内容を確認しています。

Copyright © LWP 山中 一弘 |