如何在循环内创建循环vba

Sub CreateNestedLoop()
    Dim i As Integer
    Dim j As Integer
    
    For i = 1 To 5 ' 外层循环
        For j = 1 To 3 ' 内层循环
            ' 在这里编写你想要重复执行的代码
            ' 可以是任何VBA代码，比如操作单元格、计算等
            
            ' 示例：在单元格A1中输出循环变量i和j的值
            Range("A1").Offset(i - 1, j - 1).Value = "i = " & i & ", j = " & j
        Next j
    Next i
End Sub