excel怎么实现任意组合,组合,任意

1.excel用函数求组合,如1,2,3,4,5,6,7,8,9,10任选6个数字进行组合且把这

宏：

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 Sub

2.Excel如何实现自动组合

Sub xx()

n = 2

For i = 3 To [a65536].End(3).Row

For j = 3 To [b65536].End(3).Row

For k = 3 To [c65536].End(3).Row

For l = 3 To [d65536].End(3).Row

If Cells(i, 1) n = n + 1

Cells(n, 6) = Cells(i, 1)

Cells(n, 7) = Cells(j, 2)

Cells(n, 8) = Cells(k, 3)

Cells(n, 9) = Cells(l, 4)

End If

Next

Next

Next

Next

End Sub