Excel VBA質問箱 IV

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

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


73416 / 76732 ←次へ | 前へ→

【7791】配列についての質問です
質問  kawata  - 03/9/18(木) 11:53 -

引用なし
パスワード
   kawataです、よろしくお願いします。
(Windows2000/Excel2000)

セルのデータを加工するのに、これまではセルデータを直に
読んで書いてとやっておりましたが、ここにきて、ようやく
配列に手を出しはじめました(^^;。
望むように動作すれば圧倒的な速度差に感激しております。

で、いろいろ勉強のためにテストしているのですが、

Sub test()
Dim aaa() As Variant
  With Sheets("sheet1").Range("a1:a20")
    aaa = .Value
    For i = 1 To UBound(aaa)
      aaa(i, 1) = "済" & aaa(i, 1)
    Next
    .Value = aaa
  End With
End Sub

「test」は問題なく動作します、これを・・・・・

Sub test2()
Dim aaa() As Variant
Dim bbb() As Variant
  With Sheets("sheet1").Range("a1:a20")
    aaa = .Value
    ReDim bbb(UBound(aaa), 1)
    For i = 1 To UBound(aaa)
      bbb(i, 1) = "済" & aaa(i, 1)
'      Debug.Print bbb(i, 1)
    Next
    .Value = bbb
  End With
End Sub

のようにすると、Range("a1:a20")は全部消えてしまいます。
根本的なところで配列の理解ができていないように思います(^^;。

とんちんかんな質問をしているのかどうかも自分で判断できません。
ぜひ、よろしくお願いします。
※Debug.Print bbb(i, 1)で中身は確認できているのですけども・・。
1 hits

【7791】配列についての質問です kawata 03/9/18(木) 11:53 質問
【7795】Re:配列についての質問です ichinose 03/9/18(木) 12:04 回答
【7797】Re:配列についての質問です こうちゃん 03/9/18(木) 12:12 発言
【7798】Re:配列についての質問です kawata 03/9/18(木) 12:39 お礼
【7802】Re:配列についての質問です こうちゃん 03/9/18(木) 13:29 発言
【7803】Re:配列についての質問です kawata 03/9/18(木) 13:46 お礼
【7796】Re:配列についての質問です こうちゃん 03/9/18(木) 12:11 回答

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