共720个
Sub 排列组合()
Dim A%, B%, C%, D%, E%, F%
For A = 1 To 1
For B = 1 To 2
For C = 1 To 3
For D = 1 To 4
For E = 1 To 5
For F = 1 To 6
N = N + 1
Cells(N, "g") = Cells(1, A) & Cells(1, B) & Cells(1, C) & Cells(1, D) & Cells(1, E) & Cells(1, F)
Next
Next
Next
Next
Next
Next
End Sub