quickfixer

¦^´_ 1# maiko


    Sub test()
    For i = 1 To 6
        For j = 1 To 6
            rr = rr + 1
            Cells(rr, 1) = i
            Cells(rr, 2) = j
        Next j
    Next i
End Sub