ここから質問投稿すると、最大4000ポイント当たる!!!! >>

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

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を同時に
インクリメントすることは可能でしょうか?

A 回答 (2件)

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


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をいれている意味が無くなりますしね・・・
    • good
    • 0

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング