ExcelVBA对一组数组进行全组合操作
Sub paixu()
Dim arr(4)
Row = 1 '循环，共495行 ,row为记录行号的变量，每次增大1
For i = 12 To 1 Step -1 '排列组合题，组合不出现重复，为实现从大到小排序，取数时从大开始
For j = i - 1 To 1 Step -1 '最大数为11
For k = j - 1 To 1 Step -1 '最大数为10
For l = k - 1 To 1 Step -1 '9
arr(1) = Sheets("sheet1").Cells(i, 1)
arr(2) = Sheets("sheet1").Cells(j, 1)
arr(3) = Sheets("sheet1").Cells(k, 1)
arr(4) = Sheets("sheet1").Cells(l, 1)
For m = 1 To 3 ‘排序，由大到小
For n = m + 1 To 4
If arr(n) > arr(m) Then
swap_ = arr(m)
arr(m) = arr(n)
arr(n) = swap_
End If
Next
Next ‘排序结束
Sheets("sheet2").Cells(Row, 1) = arr(1) 'sheet2数据表里,row行的第一列显示i的值，后面三行同理
Sheets("sheet2").Cells(Row, 2) = arr(2)
Sheets("sheet2").Cells(Row, 3) = arr(3)
Sheets("sheet2").Cells(Row, 4) = arr(4)
Row = Row + 1
Next
Next
Next
Next
End Sub