Question

1、2、3、4、5、6、7、8、9、10、11取任意5个数进行组合,都有哪些组合?

Answer 1

宏：

Sub xx()

r = 1

For a = 1 To 5

For b = a 1 To 6

For c = b 1 To 7

For d = c 1 To 8

For e = d 1 To 9

For f = e 1 To 10

Cells(r,1) = a

Cells(r,2) = b

Cells(r,3) = c

Cells(r,4) = d

Cells(r,5) = e

Cells(r,6) = f

r = r 1

Next f,e,d,c,b,a

End Su