エクセルVBAでarrayの使い方を学ぶ

質問

• エクセルVBAでarrayを使う方法について、具体的なコードを紹介します。arrayを用いることで、複数の値をまとめて扱うことができます。
• 通常、各シートの最終行を調べる際には、変数を設定してシートごとに最終行を取得しますが、今回はループを用いて各シートの最終行を読み込む方法を紹介しています。
• また、他のホームページでは、arrayの（　）の中に複数の値を並べて操作する方法が紹介されていますが、検索結果をarrayに読み込む場合には、（　）の中に0を入れることで実現できます。

回答No.4

end-u · ベストアンサー

Sub kk()
　　Dim lastrow As Variant
　　Dim m As Long
　　Dim n As Long

　　lastrow = Array(0, 0, 0, 0, 0)
　　For m = 1 To 3
　　　　n = 1
　　　　Do While Sheets(m).Cells(n, 1) <> ""
　　　　　　n = n + 1
　　　　Loop
　　　　lastrow(m) = n - 1
　　Next
Stop 'Stopステートメント
End Sub

上記 Sub kk() を実行すると Stopステートメント で中断します。
VBE画面で[Alt][v][s]。
[ローカルウィンドウ]が表示されます。
[ローカルウィンドウ]は変数の中身を確認するのに便利なツールです。
　＋ lastrow
の表示の＋をクリックすると内容を展開できます。
lastrow(0)　0
lastrow(1)　??
lastrow(2)　??
lastrow(3)　??
lastrow(4)　0

これで１次元の配列変数lastrowの1要素目に 0、2要素目に??、（略）5要素目に0、
が入っている事がわかります。

最初に
Dim lastrow As Variant
変数lastrowをVariant型で宣言しています。
Variant型は何でもはいりますから
lastrow = Array(0, 0, 0, 0, 0)
この時に要素が５つの１次元配列を代入してます。
各シートの最終行を格納する配列変数を準備してるわけですね。

この処理は必要なのでしょうか。
以下試してみてください。

Sub ll()
　　Dim lastrow(1 To 3) As Long
　　Dim m As Long

Stop '※1
　　For m = 1 To 3
　　　　lastrow(m) = Sheets(m).Cells(Rows.Count, 1).End(xlUp).Row
　　Next
Stop
End Sub

最初の※1で(0,0,0)の配列が準備できています。
Dim lastrow(1 To 3) As Long で
「Array関数による初期値0の配列の準備」と同じ事ができます。
また、

Sub mm()
　　Dim lastrow() As Long
　　Dim n As Long
　　Dim i As Long

　　n = Worksheets.Count
　　ReDim lastrow(1 To n)
Stop
　　For i = 1 To n
　　　　lastrow(i) = Worksheets(i).Cells(Rows.Count, 1).End(xlUp).Row
　　Next
Stop
End Sub

このようにWorksheets.Countに対応する要素数の配列を設定する事もできます。
なので、Array関数を使うより、最初に「ある要素数の配列を準備」すると
初期値に何もはいっていない配列（容れ物）として使う事ができます。
#Long型の配列は初期値は 0 で
#Variant型の配列は初期値は Empty になります。

Array関数は、例えば
Sub nn()
　　Range("A1").Resize(, 5).Value = Array(2, 4, 6, 8, 10)
End Sub
このようにセル範囲に配列の値をまとめて入力したり、
ListBoxやComboBoxに配列の値をまとめてセットしたりする時に使うと便利です。

お礼

おはようございます。

ご丁寧なご回答ありがとうございました。

おかげさまで非常によく理解する事ができました。

今後ともよろしくお願いいたします。