<em>EXCEL</em>怎么把一列数变成蛇形排列矩阵

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

然后复制本宏e79fa5e98193e59b9ee7ad94363到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

执行结果截图

在D2单元格输抄入以下袭公式，然后向右向下填充百公度式

=IF(MOD(ROW(),2)=0,OFFSET($A$3,3-COLUMN(C1)+(ROW(C1)-1)*3,),OFFSET($A$1,COLUMN(A1)-1+(ROW(C1)-1)*3,))

详见附图

若你是排列偶数行
则每列的和值是相等的。
例如：
1 2 3 4 5
10 9 8 7 6
则就每列的和都是11

B1输入复公式制后下知拉道=IF(A1="","",IF(MOD(INT((ROW(A1)-1)/$A$1),2),$A$1-MOD((ROW(A1)-1),$A$1),MOD((ROW(A1)-1),$A$1)+1))