好吧问答库 > Excel VBA 蛇形顺序

Excel VBA 蛇形顺序

我想用excel VBA实现如下的效果： 81 82 83 84 80 79 78 77 76 75 74 73 63 64 65 66 67 68 69 70 71 7262 61 60 59 58 57 56 55 54 5343 44 45 46 47 48 49 50 51 5242 41 40 39 38 37 36 35 34 3323 24 25 26 27 28 29 30 31 3222 21 20 19 18 17 16 15 14 13 5 6 7 8 9 10 11 12 4 3 2 1

2026年09月26日 04:30

有1个网友回答

网友（1）：

本例演示实在工作表Sheet1里，先将单元格列宽设置为3

然后复制本宏到VBA里运行，代码如下

Sub 宏1()
'
' 宏1 宏
'

'
ThisWorkbook.Activate
Sheets("Sheet1").Select
tt = 84
For i = 1 To 10

    If i = 1 Or i = 10 Then
    j = 4
    ElseIf i = 2 Or i = 9 Then
        j = 8
    Else
        j = 10
    End If
   
  
    If i Mod 2 = 0 Then
        For m = 1 To j
            Sheets("Sheet1").Cells(i, m) = tt
            tt = tt - 1
        Next m
    Else
        For m = j To 1 Step -1
            Sheets("Sheet1").Cells(i, m) = tt
            tt = tt - 1
        Next m
    End If
Next i
    

End Sub

执行结果截图

Excel VBA 蛇形 顺序

Excel VBA 蛇形顺序