以下のコードでセルの値を配列に格納する処理をおこなっていますが、Debug.Print ary(j, 1)
で確認しても値が表示されない(取得できていない)ようです。
ary = Array(Cells(j, "E").Value, Cells(j, "F").Value, Cells(j, "G").Value, Cells(j, "H").Value, Cells(j, "I").Value)
下記のコードで何が間違いなのでしょう?エラー等は発生しておりません。
Dim j As Long
Dim ary As Variant
For j = 1 To LastRow
If Cells(j, "J").Value = "JST" Then
ary = Array(Cells(j, "E").Value, Cells(j, "F").Value, Cells(j, "G").Value, Cells(j, "H").Value, Cells(j, "I").Value)
Debug.Print ary(j, 1)
End If
Next