|
いつもお世話になっております。
恐れ入りますが、再び、お知恵をお貸し下さい。
テキストデータから番号リストとデータを読み取り、シート1のA列にあるリスト番号と照らし合わせ、番号が一致する時にデータをB列に記入する操作を行うコードを考えています。
その際、ReDimステートメントを使用しているのですが、「インデックスが有効範囲にありません。」と
実行時エラー9が発生しました。
そこで、原因を探ろうと下記のように簡単なコードで試してみたのですが、はやり同じエラーが発生してしまいました。
どのように改善したらよろしいのでしょうか?
Sub macro()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim i As Long, j As Long, Cnt As Long
Dim id() As Long
Set ws1 = ThisWorkbook.Sheets(1)
Set ws2 = ThisWorkbook.Sheets(2)
Cnt = ws1.Range("A1").End(xlDown).Row
For i = 1 To 3
For j = 1 To Cnt
ReDim Preserve id(j, i): id(j, i) = ws1.Cells(j, i)
Next j
Next i
For i = 1 To 3
For j = 1 To Cnt
ws2.Cells(j, i) = id(j, i)
Next j
Next i
Set ws1 = Nothing
Set ws2 = Nothing
End Sub
|
|