求1到12排列6组合的Excel列表

按下ALT+F11,插入-模块,复制下列代码.按F5运行.结果显示在A1:924

Sub aaa()
Range("a1").Select
For a = 1 To 12
For b = 1 To 12
For c = 1 To 12
For d = 1 To 12
For e = 1 To 12
For f = 1 To 12
Do While a < b And a < c And a < d And a < e And a < f And b < c And b < d And b < e And b < f And c < d And c < e And c < f And d < e And d < f And e < f
Sum = a & b & c & d & e & f
ActiveCell.Value = Sum
ActiveCell.Offset(1, 0).Select
Exit Do
Loop
Next
Next
Next
Next
Next
Next
End Sub