たすけて下さい

質問

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

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.2

touchme

最終求めている結果がよくわかりませんが、
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をいれている意味が無くなりますしね・・・

回答No.1

Masa2072

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の値が格納されることになります。

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