Question

VBA如何输出AB列这种循环

VBA如何输出AB列这种循环

Answer 1

Sub m()
For i = 1 To 10000 Step 6

For j = 1 To 6

Cells(i + j - 1, 1) = 1
Cells(i + j - 1, 2) = (i - 1) / 6 * j + j

Next j

Next i
End Sub

Answer 2

Sub s()
    For i = 0 To 2
    For j = 0 To 5
        Cells(i * 6 + j + 1, 1) = 1
        Cells(i * 6 + j + 1, 2) = i + j * (i + 1) + 1
    Next j, i
End Sub

Answer 3

B列中的这种效果貌似用公式就可以做到。