forを2つ同時に処理したい

Question

前提・実現したいこと

下記ソースコードの変数num1とnnをfor文で同時に動かしたいです

発生している問題・エラーメッセージ

明確なエラーはでていませんが、forを同時に回すことができず
困っております。

追記
現状の問題点はnum1とnnが同時に回らず、nnのみが回ってしまいます。
"実現したいこと" の部分でも記載致しましたが、forでnum1とnnを
同時に回していきたいです。
具体的には
num1が13→15→17・・・
nnが8→9→10・・・
という形で1つずつではなく、同時に繰り返し処理をしてほしいです

該当のソースコード

    Dim num1, n, nn As Variant
    Dim ws1 As Worksheet
    For n = 3 To Worksheets.Count
        Set ws1 = Worksheets(n)
        For nn = 8 To Worksheets(n).Cells(Rows.Count, 10).End(xlUp).Row + 1
            With Worksheets("雛形 (2)")
            AA = .Cells(Rows.Count, 2).End(xlUp).Row
            For num1 = 13 To AA Step 2 + 1
                If Worksheets(n).Range("J" & nn) <> "" Then
                    .Range("N" & num1) = ws1.Range("I" & nn)
                    .Range("S" & num1) = ws1.Range("D" & nn)
                    .Range("V" & num1) = ws1.Range("K" & nn) + ws1.Range("L" & nn)
                    .Range("Z" & num1) = ws1.Range("J" & nn)
                End If
            Next num1
            End With
        Next nn
    Set ws1 = Nothing
    Next n

補足情報（FW/ツールのバージョンなど）

エクセル2007

Comments

[y_waiwai]

提示のコードではどういう不具合があるんでしょう。
そして、それをどうしたいんでしょうか

[退会済みユーザー]

追記の方をさせて頂きました。
宜しくお願いいたします。

[y_waiwai]

回す、というのがどういう意味なのか不明です。
提示のコード上の何が不具合で、それを具体的にどうしたいって話なんでしょうか

[退会済みユーザー]

修正させて頂きました。
宜しくお願いいたします。

Answer 1

結論から言いますと、現状のようにForをネスト（入れ子）させた場合、両方の変数を同時に動かすことは不可能です。
内側の変数が変化しても外側の変数は固定です。内側が最後までいってから、外側が変化します。

具体的には

num1が13→15→17・・・
nnが8→9→10・・・
という形で1つずつではなく、同時に繰り返し処理をしてほしいです

Forをネストさせずに一つのForループで実現できます。

Public Sub test()
    Dim num1 As Long, nn As Long

    For nn = 8 To 10
        num1 = n * 2 - 3
        Debug.Print "nn:" & nn & ", num1:" & num1
    Next nn
End Sub

上記の実行結果（イミディエイトウィンドウの出力）

nn:8, num1:13
nn:9, num1:15
nn:10, num1:17

Comments

[退会済みユーザー]

ご回答ありがとうございます。
具体例まで挙げて頂き、大変助かりました。

Answer 2

nn のforループの最初に
num1=nn*2-3
をいれとけばいいのでは

Answer 3

下記が8未満ならnnのForは抜けます。
Worksheets(n).Cells(Rows.Count, 10).End(xlUp).Row + 1
AAが13未満ならnum1のForは抜けます。
それぞれの値を確認してください。

ステップインを使ってどこで抜けるかを確認し、
抜けた部分から原因究明しましょう。

---

まったく同時にForを二つ、はできないのでForを一つにしてその中で変更していきます。