見づらいので使ったことはないが、こんなネストが出来てしまうらしい・・・

Sub test()
    Dim i As Long, j As Long
    
    For i = 1 To 10
    
        For j = 1 To 5
        
            MsgBox i & Space(10) & j

    Next j, i

End Sub


Sub test2()
    Dim i As Long, c As Worksheet
    
    For i = 1 To 10
    
        For Each c In ActiveWorkbook.Worksheets
        
            MsgBox i & Space(10) & c.Name

    Next c, i

End Sub 



Microsoft Office ブログランキングへ