Skip to main content
本文に 76 文字追加
ソース リンク
hatena
  • 186
  • 3

下記のコードで何が間違いなのでしょう?エラー等は発生しておりません。

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から始まります。

下記のコードで何が間違いなのでしょう?エラー等は発生しておりません。

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 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から始まります。

下記のコードで何が間違いなのでしょう?エラー等は発生しておりません。

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から始まります。

ソース リンク
hatena
  • 186
  • 3

下記のコードで何が間違いなのでしょう?エラー等は発生しておりません。

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 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から始まります。