下記のコードで何が間違いなのでしょう?エラー等は発生しておりません。
Debug.Print ary(j, 1)
で「インデックスが有効範囲にありません。」のエラーが発生するはずですが。
どこかに On Error Resume Next
当のエラーを無視するコードを記述してませんか。しているなら、まずはそれをコメントアウトしましょう。
エラーの原因は、Array関数は一次元配列を返しますので、aryは一次元配列になります。
にもかかわらず、ary(j, 1)
と二次元配列として扱っているので上記のエラーになります。
Debug.Print ary(0)
とすれば配列の先頭の値(=Cells(j, "E").Value)が表示されます。
やりたいことが、E~I列の1行目からLastRowまでの範囲を配列に格納したいということなら、ループせずとも下記の1行で可能です。
Dim LastRow As Long
LastRow = Cells(Rows.Count,"E").End(xlUp).Row
Dim ary() As Variant
ary = Range(Cells(1,"E"),Cells(LastRow,"I")).Value
'配列の1列目(E列)の値の確認
Dim i
For i = 1 to LastRow
Debug.Print ary(i, 1)
Next
ちなみに、上記のようにValueで代入した配列は、インデックスが1から始まります。
Array関数は0から始まります。