VBA条件分岐で教えてください。

質問

以下のプログラムは一つのセルに複数行のデータがあるとき
それぞれの行を独立したデータとして取り出すように計画しています。
それぞれのセルは一行のもの、二行のもの、三行のものとバラバラです。
行のデータが無くなったら次のNEXTを実行させたいのですがうまくいきません。
（現在はメッセージボックスを表示させていますが）
以下のプログラムを実行するとデータがある行は表示しますがデータの無い行に行くと「インデックスが有効範囲にありません」とエラーが出ます。

For n = 4 To 6
A1 = Cells(n, 1) '連番
A2 = Cells(n, 2) 'タイム
A3 = Cells(n, 3) '日本語
A4 = Cells(n, 4)

Dim tmp As Variant
tmp = Split((A4), vbLf)
MsgBox tmp(0)
If tmp(1) <> "" Then
MsgBox tmp(1)
End If
If tmp(2) <> "" Then
MsgBox tmp(2)
End If

A5 = Cells(n, 5) 'オプション
'テキスト出力
Open "G:\Data.txt" For Append As #1
Print #1, A1; Chr(9); A2; Chr(9); A4
' Chr(9)はTABスペースのことです。
Close #1
Next

VBA初心者です。
よろしくお願いします。

回答No.1

nda23 · ベストアンサー

数が不特定の配列に直定数でインデックスを
指定するのは非常にヨロシクありません。
こういう場合は以下のようにします。

(1)要素数を求めて実行する
Dim I As Long
For I = LBound(Tmp) To UBound(tmp)
　　　　MsgBox Tmp(I)
Next
(2)自動で要素を個別に扱う
Dim 要素 As Variant
For Each 要素 In Tmp
　　　　MsgBox 要素
Next

お礼

回答ありがとうございました。
（１）と（２）両方試させていただきました。
完璧です。
初心者と書きましたが中途半端に初心者です。
IF文とか理屈は分かっているので自分本位のプログラムを書いてしまい失敗しています。
上記回答を参考にもっと勉強したいと思います。
本当にありがとうございました。