excel - vba excel：如何进行曲折输出？

Question

大家好，我在这里有点新，所以我会直截了当

如何使用excel中的循环制作曲折输出

例子：

2  4  6  8 10

20 18 16 14 12

22 24 26 28 30

40 38 36 34 32

42 44 46 48 50

我在这里看不到我的代码有什么问题

Sub lol()

a = 0
b = 2

For x = 1 To 20
    For y = 1 To 5

       If x = 5 Then
          For Z = 5 To 1 Step -1

              Cells(x, Z) = a
              a = a + b

          Next

          GoTo nextloop

       End If

       Cells(x, y) = a
       a = a + b

       nextloop:

    Next
Next

End Sub

提前致谢！

Answer 1

尝试这个

Sub lol()
    Dim a As Long, b As Long
    Dim frm As Long, too As Long, stp As Long
    Dim x As Long, y As Long
    a = 2
    b = 2
    For x = 1 To 20
        If x Mod 2 > 0 Then
            frm = 1
            too = 5
            stp = 1
        Else
            frm = 5
            too = 1
            stp = -1
        End If
        For y = frm To too Step stp
            Cells(x, y) = a
            a = a + b
        Next
    Next
End Sub