Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


29887 / 76733 ←次へ | 前へ→

【52119】2次元配列について
質問  多摩川  - 07/10/22(月) 10:39 -

引用なし
パスワード
   いつもお世話になっております。
恐れ入りますが、再び、お知恵をお貸し下さい。

テキストデータから番号リストとデータを読み取り、シート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

0 hits

【52119】2次元配列について 多摩川 07/10/22(月) 10:39 質問
【52120】Re:2次元配列について neptune 07/10/22(月) 11:02 回答
【52123】Re:2次元配列について 多摩川 07/10/22(月) 11:33 質問
【52126】Re:2次元配列について neptune 07/10/22(月) 14:39 回答
【52129】Re:2次元配列について 多摩川 07/10/22(月) 18:15 お礼
【52130】Re:2次元配列について ichinose 07/10/22(月) 19:06 発言
【52134】Re:2次元配列について 多摩川 07/10/23(火) 9:13 お礼

29887 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free