配列変数を使おう。

プロシージャで処理を行うとき、変数を使うことは日常茶飯事です。
しかし、まとまりのあるデータを扱う場合は、配列変数を使うとマクロが組みやすくなります。

１．配列変数を宣言する。

まず、下のプロシージャを比較してみましょう。
上のプロシージャでは、教科名を普通の変数に入れていますが、下のプロシージャでは、配列変数に入れています。
配列変数のいいところは、呼び出したり、書き込んだりするときに、数値で指定できることです。
このことによって、いろいろなデータを読み出しやすくなります。

２．インデックス番号の下限値と上限値を設定する。

配列変数のインデックス番号は、任意の範囲で設定することができます。

Sub test03() 　　Dim 教科(6 To 9) As String　←�@ 　　Dim n As Integer 　　教科(6) = "国語"　←�A 　　教科(7) = "社会" 　　教科(8) = "算数" 　　教科(9) = "理科" 　　For n = 6 To 9　←�B 　　　　MsgBox 教科(n) 　　Next n End Sub	�@　今度は、教科（）の中を、６　Ｔｏ　９　としました。 　　これで、作られた配列は、 　　教科（６）、教科（７）、教科（８）、教科（９）　の 　　４つになります。 �A　もちろん、代入するときの範囲も６〜９です。 �B　読み出すときも、６〜９になります。
	左のようなワークシートから、 データを配列変数に読み込むときには、 左下のように行います。  左下のマクロでは、１列目の教科名を配列に読み込んでいます。
Sub test04() 　　Dim 教科(1 To 8) As String　←�@ 　　Dim R As Integer 　　For R = 1 To 8 　　　　教科(R) = Cells(R, 1)　←�A 　　Next R 　　For R = 1 To 8 　　　　MsgBox 教科(R) 　　Next R End Sub	�@　１行目から８行目までのデータを読み込むので、 　　それに合わせて、１　Ｔｏ　８とします。 �A　セルの１列目のデータを１行目から順番に配列変数に格納します。
要素番号の変更は、２次元以上の配列でも、使えます。 例えば、教科（1 To 3 , 1 To 3 , 2 To 5）のようなこともできます。

３．動的配列を使う。

１で扱った配列は，あらかじめ決まった大きさ（個数）の宣言するので，静的配列といいます。
しかし，場合によっては，データ数がわからず，データ数を調べてから宣言したいときもあります。
こういうときは，大きさは宣言せず，変数の型だけを宣言します。そして，あとから大きさを決めます。
この配列を，動的配列と言います。

４．Ａｒｒａｙ関数を使って、入力の手間を減らす。（１次元配列）

配列変数にデータを格納するとき、今までは１つ１つ代入してきましたが、少ない個数であれば一気に格納する方法があります。
それが、Ａｒｒａｙ関数を使う方法です。

５．ワークシートのデータを、配列変数に一気に格納する。（２次元配列）

同じように、ワークシートにあるデータも一気に配列に格納する方法があります。
やりかたは、Array関数とよく似ています。
この方法は、読み込みも書き込みも速いので、高速化には欠かせません。

Sub test08() 　　Dim 文字 As Variant　←�@ 　　Dim R As Integer 　　Dim C As Integer 　　文字 = Range("a1:d8")　←�A 　　For C = 1 To 4 　　　　For R = 1 To 8 　　　　　　文字(R, C) = "★" & 文字(R, C)　←�B 　　　　Next R 　　Next C 　　Range("a1:d8") = 文字　←�C End Sub	�@　一気に変数に格納するので、Variant型で宣言します。 �A　ここで、範囲内のデータを、一気に２次元配列として格納します。 　　文字（Ｒ，Ｃ）のＲは行、Ｃは列になります。 　　つまり、Ｃｅｌｌｓ（Ｒ，Ｃ）と同じように扱うことができます。 �B　配列に入っているデータの前に、★を付けます。 �C　ここで、一気にセルに書き込みます。
ワークシートから配列変数に一気に格納する場合は、開始値は１からになります。 また、どんな場合も２次元配列になります。 例えば、 Ａ１〜Ａ１０　までを格納した場合は、Ａ（ 1 to 10 , 1 ）と同じですし、 Ａ１〜Ｇ１　　までを格納した場合は、 Ａ（ 1 , 1 to 7 ）と同じです。 ここで，インデックス番号の上限と下限を求めるには，次のようにします。 下限　LBound( 文字 , 1 )　　　上限　UBound( 文字 , 1 )　・・・行方向の上限と下限が求まります。 下限　LBound( 文字 , 2 )　　　上限　UBound( 文字 , 2 )　・・・列方向の上限と下限が求まります。

６．インデックス番号の開始値を１に設定する。

配列変数は、通常、０から始まります。しかし、セルの行や列は１から始まるので、時にはこれと一致させておくと便利です。
そして、要素数とインデックス番号が一致するので、わかりやすいのも利点でしょう。
設定するのは、「Option Base」ステートメントを使います。
このステートメントは、モジュールの先頭で使います。
また、これを設定すると、このモジュール内の配列変数全てに適用されます。

（Option Explicit は、変数の宣言を強制するステートメント） こちらは、通常通りなので、下限が０になっています。 要素数は、 配列（０）、配列（１）、配列（２）、配列（３）　の４つです。	（Option Explicit は、変数の宣言を強制するステートメント） こちらは、「Option Base」ステートメントを使っているので、 下限が１になっています。 要素数は、 配列（１）、配列（２）、配列（３）　の３つです。
Option Base　ステートメントでは、０か１を設定します。デフォルト状態が０なので、使うときは１でしょうね。 ちなみに、上限を調べるときは、UBound　を使います。

７．その他、配列変数に関わる関数（１次元配列）

Sub test09() 　　Dim 教科(7) As String　←�@ 　　Dim 項目 As String 　　教科(0) = "国語"　←�A 　　教科(1) = "社会" 　　教科(2) = "算数" 　　教科(3) = "理科" 　　教科(4) = "音楽" 　　教科(5) = "図工" 　　教科(6) = "家庭科" 　　教科(7) = "体育" 　　項目 = Join(教科, ",")　←�B 　　MsgBox 項目 End Sub	�@　配列変数を文字列型で宣言します。 �A　配列にデータを代入します。 �B　Ｊｉｏｎ関数で、配列内のデータをカンマでつないで、１つのデータにします。
Sub test10() 　　Dim 項目 As String 　　Dim 教科 As Variant　←�@ 　　Dim tmp As Variant 　　項目 = "国語,社会,算数,理科 ,音楽,図工,家庭科,体育"　←�A 　　教科 = Split(項目, ",")　←�B 　　For Each tmp In 教科　←�C 　　　　MsgBox tmp 　　Next tmp End Sub	�@　配列変数として使いたいので、バリアント型で宣言します。 �A　項目という変数に、文字列を代入します。，（カンマ）が使われてはいますが、”（ダブルクォーテーション）で両端がくくられているので、このカンマもデータの一部です。 �B　Ｓｐｌｉｔ関数で、，（カンマ）でデータを分割して、配列変数に代入します。 �C　ここで確認すると、ちゃんと配列になっていることがわかります。
Ｊｏｉｎ関数とＳｐｌｉｔ関数は、ＣＳＶファイルの読み書きをするときに知っていると便利です。 書き込み・・・セルのデータを配列に読み込み、Ｊｏｉｎ関数でつないで１行分のデータを作り、ＣＳＶファイルとして書き込みます。 読み込み・・・１行分のデータを読み込み、Ｓｐｌｉｔ関数で配列に分割し、各セルに読み込みます。 ２０１０では、ＣＳＶへの書き込みは正常にできますが、ＣＳＶを読み込むときにこちらの意図しない形に加工されてしまいます。 例）　０１が１になったり、１Ｅ１３が指数と認識されたり。 そこで、Ｌｉｎｅ　Ｉｎｐｕｔ　を使って読み込み、 Ｓｐｌｉｔ関数を使って１行分のデータを分割し、セルに代入するようにすると、そのまま加工されずに値が入ります。 このとき、「セルの書式設定」は、表示形式を「文字列」にしておいてください。 そうしないと、数値と見なして、数値に変換してしまうので、元の木阿弥です。
Ｊｏｉｎ関数を扱う時には，注意することがいくつかあります。 �@１次元配列なので，Variant型の変数にセルの値を一気に格納した配列では，使えません。 �AＪｏｉｎ関数が扱える配列変数は，文字列型かVariant型だけです。それ以外の変数では，エラーになります。

８．変数の中身を見る。

マクロを組んでいて処理が複雑になってくると、思ったような結果が得られないことが多々あります。その原因を探るために、変数の内容がわかると非常に便利です。MsgBoxを使って、処理ごとに表示させる方法もありますが、ローカルウィンドウを使うと全部の変数の内容を見ることができます。

	デフォルトでは、マクロを書き込む画面の下に、イミディエイトウインドウとローカルウィンドウが表示されています。   ローカルウィンドウは、そのときの変数の内容を表示します。 このときに注意しなければいけないのは、処理が終わってしまうと変数も初期化されてしまうので、途中でプロシージャを止める必要があるということです。 左の例では、プロシージャの最後に、Stopメソッドを入れています。 これで、実行すると、Stopのところでプロシージャが一時的に停止します。 すると、全ての変数の内容を見ることができます。 処理の続きを行うときは、マクロの再生ボタン『Sub/ユーザーフォームの実行』を押します。そのまま終了するときは、停止ボタン『リセット』を押します。
	プロシージャを止める方法として、ブレークポイントを設定する方法もあります。 左の図で●（茶色）と表示されている部分がありますが、これはマウスでこの場所をクリックするとなります。 つまり、この場所でプロシージャを止めることができるのです。 解除するときは、●をもう一度クリックすると、消えます。 ブレークポイントを設定して、プロシージャを動作させたときは、停止ボタンを押してからでないと、解除できませんので気をつけてください。

９．配列変数を初期化する。

今まで配列変数に代入することばかり書いてきましたが，実際には，ループ処理の中で，「代入して処理して初期化して，代入して処理して初期化して，・・・」と，同じ変数を使うことも出てきます。
配列変数の初期化は，次のようにします。