ReplaceValue2D｜二次元配列の値を一括置換 | Excel VBA
- yuji fukami
- 11 時間前
- 読了時間: 2分
＜概要 (置換)＞
ReplaceValue2D は、二次元配列内に含まれる特定の値を、指定した別の値に一括で置き換えるための汎用プロシージャです。
完全一致による置換だけでなく、文字列の一部に対象文字が含まれている場合のみ部分的に置換するモードにも対応しており、データ整形やマスタ変換、CSV読込後の前処理などに利用できます。
処理対象は「開始インデックスが 1 の二次元配列」に限定されており、事前に IsArray2D / IsArray2DStart1 による安全チェックを行う設計になっています。
＜実行例＞
実行例のサンプルコードは次の通りです
実行結果のイミディエイトウィンドウは次のようになります。
実行結果では、二次元配列内に存在していた「未処理」という文字列のみが、「処理済」に置き換えられていることが確認できます。
他の値（商品名や数値、すでに「完了」となっているデータ）は変更されず、条件に一致した要素だけが安全に置換されています。
＜関連コード＞
今回の汎用プロシージャは、下記の別で紹介している汎用プロシージャを使用しています。
・IsArray2D → https://www.softex-celware.com/post/isarray1d
・IsArray2DStart1 → https://www.softex-celware.com/post/isarray1d
＜関連記事＞
今回紹介しているような汎用プロシージャを部品として一元管理する方法は別記事で紹介していますので、是非このノウハウも参考にしてみてください。
コーディングを効率化する上でどんどん増やしていった汎用プロシージャ（部品）をいくら増やしても簡単に流用ができるような仕組みの構築が可能になります。
コメント