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