有1到12个数字，分别有5个格子，作12选5共有792个组合。现在我想在excel里列出这792个组合。改怎么办呢？

Question

希望大虾写好宏后，再讲解一下步骤(就是打开excel后，在哪里输入宏，然后又怎么呢？然后又怎么呢......)。。。。我是十足小菜鸟~~~

Answer 1

打开一个EXCEL表，同时按：Alt+F11，进行宏编辑界面
双击SHEET1，把下列代码复制粘贴到代码编辑区
按F5运行，关闭宏编辑器，就看到结果在EXCEL的A列至E列了

Sub 十二选五()
Dim A, B, C, D, E, N, ARR(1 To 65536, 1 To 5)
For A = 1 To 8
For B = A + 1 To 9
For C = B + 1 To 10
For D = C + 1 To 11
For E = D + 1 To 12
N = N + 1
ARR(N, 1) = A
ARR(N, 2) = B
ARR(N, 3) = C
ARR(N, 4) = D
ARR(N, 5) = E
Next
Next
Next
Next
Next
[A1:E65536] = ARR
End Sub