配列に読み込む」という検索キーワードを元にした、本文中の文字列を段落ごとに配列変数に格納するWordマクロをご紹介しました。Applications)で、配列変数にデータを格納したいという要望を考えてみると、表内の文字列を2次元配列に格納するというニーズもありそうです。今回はそんなマクロをご紹介します。[スポンサードリンク]表内の文字列を2次元配列に格納するサンプルマクロ配列にデータを格納したい表の中にカーソルを置いてから以下のマクロを実行すると、表内の文字列が2次元配列に格納されている様子が確認できます。"表内にカーソルを置いてから実行してください。Sub何らかのサンプル文字列を表に入力しておいて、その表にカーソルを置いて上記のマクロを実行してください。Editor)のメニュー[表示]-[ローカルウィンドウ]からローカルウィンドウを表示してみれば、2次元配列・cellsに表内の文字列が格納されていることが確認できるはずです。表内にカーソルがない状態で実行するとエラーとなりますから、エラー時にはERR_HNDLに飛ぶようにしておきます。Selection.Tables(1)その表の、行数・列数を、変数・r_cnt・c_cntにそれぞれ格納しておきます。String行のFor~Nextループの中で、列のFor~Nextループを回します。c).Range.Text変数・buf内の文字列から、末尾の2文字を削除した文字列を、配列変数・cellsに格納しています。2)Wordの場合、CellオブジェクトのRangeオブジェクトのTextプロパティで、表内の各セルの文字列を取得できまが、そのままでは、段落記号と、セルの区切り表す制御文字列が含まれているので、末尾の2文字を削除しています。Wordで表内の文字列を配列に格納するコードをあらためて眺めてみると、Excelの場合とても簡単に2次元配列にデータを格納できるのだなぁ、と感心させられます。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。