ネストしているforが飛ばされる

Question

前提・実現したいこと

for文を複数個ネストして処理を完了させたい

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

ネストしているfor文が読み込まれない
ステップインにて見てみるとネスト部分(For k = 8 To Sheets(jj).Cells(Rows.Count, 9).End(xlUp).Row + 1)
に黄色のマーカーが入るのですが、その後すぐにNext KKに行ってしまいます

該当のソースコード

    Dim jj, k, kk, num1, num2 As Variant
    For jj = 1 To Worksheets.Count
    
        '雛形シートをコピー
        Worksheets("雛形").Copy After:=Worksheets("雛形")
    
        '振込日
        A = Format(Date, "mm/")
        
        With Worksheets(jj)
        Z = .Cells(Rows.Count, 2).End(xlUp).Row
        Y = .Cells(Rows.Count, 14).End(xlUp).Row
        End With
        
        Dim wb1 As Workbook
        Set wb1 = Workbooks("請求書作成資料.xlsm")
        
        For kk = 6 To Sheets(jj).Cells(Rows.Count, 6).End(xlUp).Row + 1
        Debug.Print (kk)
        For k = 8 To Sheets(jj).Cells(Rows.Count, 9).End(xlUp).Row + 1
        Debug.Print (k)
        AA = Worksheets(jj).Range("D2")
        BB = Worksheets(jj).Range("H" & k)
        mm = Format(Date, "mm")
    
        
            If AA = wb1.Worksheets("印紙台帳").Range("H" & kk) And BB = wb1.Worksheets("印紙台帳").Range("I" & kk) Then
                If mm = wb1.Worksheets("印紙台帳").Range("L" & kk) Then
                    Worksheets(jj).Range("V" & k) = wb1.Worksheets("印紙台帳").Range("F" & kk)
                    Worksheets(jj).Range("W" & k) = wb1.Worksheets("印紙台帳").Range("G" & kk)
                    wb1.Worksheets("印紙台帳").Range("E:L" & kk).Interior.Color = RGB(200, 200, 200)
                End If
            End If
            
            '計画
            If AA = wb1.Worksheets("計画").Range("C" & kk) And BB = wb1.Worksheets("計画").Range("D" & kk) Then
                If mm = wb1.Worksheets("計画").Range("I" & kk) Then
                    Worksheets(jj).Range("T" & k) = wb1.Worksheets("計画").Range("F" & kk)
                    wb1.Worksheets("計画").Range("A:I" & kk).Interior.Color = RGB(200, 200, 200)
                End If
            End If
            
            '受験料
            If AA = wb1.Worksheets("受験料").Range("C" & kk) And BB = wb1.Worksheets("受験料").Range("D" & kk) Then
                If mm = wb1.Worksheets("受験料").Range("L" & kk) Then
                    Worksheets(jj).Range("V" & k) = wb1.Worksheets("受験料").Range("H" & kk)
                    wb1.Worksheets("受験料").Range("A:L" & kk).Interior.Color = RGB(200, 200, 200)
                End If
            End If
        
            '検診
            If AA = wb1.Worksheets("診断").Range("F" & kk) And BB = wb1.Worksheets("雇入れ検診").Range("G" & kk) Then
                If mm = wb1.Worksheets("健診").Range("J" & kk) Then
                    Worksheets(jj).Range("U" & k) = wb1.Worksheets("健診").Range("C" & kk)
                    wb1.Worksheets("健診").Range("A:J" & kk).Interior.Color = RGB(200, 200, 200)
                End If
            End If
        
            Workbooks("請求書作成資料.xlsm").Save
            Workbooks("請求書作成資料.xlsm").Close
        Set ws1 = Nothing
    
            '請求書作成
            
            B = Right(Sheets(jj).Range("G" & k), 2)
                'ヘッダー
                With Worksheets("雛形 (2)")
                .Range("AA1") = Format(Date, "yyyy年mm月") & Worksheets(jj).Range("E8") & "日"
                .Range("B1") = Worksheets(jj).Range("L2")
                .Range("A2") = Worksheets(jj).Range("L3")
                .Range("B4") = Worksheets(jj).Range("D2")
                
                '内容
                For num1 = 13 To Z Step 1
                For num2 = 14 To Y Step 1
                    If Worksheets(jj).Range("J" & k) <> "" Then
                        .Range("N" & num1) = Worksheets(jj).Range("H" & k)
                        .Range("V" & num1) = Worksheets(jj).Range("J" & k) + Worksheets(jj).Range("K" & k)
                        .Range("R" & num2) = Worksheets(jj).Range("C" & k)
                        .Range("P" & num2) = A + B
                        .Range("Z" & num1) = Worksheets(jj).Range("I" & k)
                    End If
                    
                    '日割り計算用
                    If Worksheets(jj).Range("AD" & k) <> "" Then
                        C = Worksheets(jj).Range("K" & k) * 12 / 365
                        D = C * Worksheets(jj).Range("AD" & k)
                        
                        E = Worksheets(jj).Range("J" & k) * 12 / 365
                        F = E * Worksheets(jj).Range("AD" & k)
                        
                        .Range("V" & num1) = D + F
                    End If
                
                    '日割り計算マイナス用
                    If Worksheets(jj).Range("AE" & k) <> "" Then
                        G = Worksheets(jj).Range("AE" & k) * 12 / 365
                        H = G * Worksheets(jj).Range("AE" & k)
                        O = Worksheets(jj).Range("J" & k) - H
                        
                        P = Worksheets(jj).Range("AE" & k) * 12 / 365
                        Q = P * Worksheets(jj).Range("AE" & k)
                        R = Worksheets(jj).Range("J" & k) - Q
                        
                      
                        S = Q + H
                        'ここに請求書に入れ込む構文を入れる
                        
                    End If
                    
                    'シート名を変更
                    .Range("D57") = Worksheets(jj).Range("F8")
                    .Name = Worksheets(jj).Range("D2")
                    
                    
                Next num2
                Next num1
                End With
            Next k
        Next kk
 

試したこと

for kとfor kk の入れ替えなど

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

エクセル2007

Comments

[ozwk]

For kk = 6 To Sheets(jj).Cells(Rows.Count, 6).End(xlUp).Row + 1 直前で
Sheets(jj).Cells(Rows.Count, 6).End(xlUp).Row + 1の値がいくつかを見てください

Answer 1

その、 Sheets(jj).Cells(Rows.Count, 9).End(xlUp).Row + 1　が８以下の場合はfor文は実行されません
ここの値はどうなってるかみてみればどうでしょう

Comments

[退会済みユーザー]

ご返答ありがとうございます。
完全にケアレスミスですね・・・

ありがとうございました！