たすけて下さい

質問します
ちょっと躓いて先に進めないでいます。
どなたか教えてください。

Option Explicit

Sub zzz()
Dim hoge(3) As Variant
Dim hogehoge As Byte
Dim z As Byte


For z = 1 To 3
For hogehoge = 1 To 3
hoge(z) = Range("A" & hogehoge).Value
Next hogehoge
Next z
End Sub

上のようなコードで、zとhogehogeを同時に
インクリメントすることは可能でしょうか？

No.1 回答者： Masa2072 回答日時： 2008/07/23 09:15

hoge(1)～hoge(3)にA1～A3の値を格納するという内容であれば

For hogehoge = 1 To 3は不要です。
For z = 1 To 3
hoge(z) = Range("A" & z).Value
Next z
になります。

提示されているコードのままですと、hoge(1)～hoge(3)には常にA3の値が格納されることになります。

それ以外のないようであれば、もう少し分かりやすい質問を補足でお願いします。

No.2 回答者： touchme 回答日時： 2008/07/23 09:18

最終求めている結果がよくわかりませんが、

For z = 1 To 3
hoge(z) = Range("A" & z).Value
Next z
ではなく？

For z = 1 To 3
For hogehoge = 1 To 3
hoge(z) = Range("A" & hogehoge).Value
z = z + 1
Next hogehoge
Next z
とすれば同時にインクリメントしますが、
For z = 1 To 3をいれている意味が無くなりますしね・・・