excel函数如何在一组数列中选任意组合的几个数

Question

如题所述

Answer 1

ALT+F11调出VB窗体，输入以下代码，自动组合
Function 朱科技(zhu As Range, num As Integer)
R = zhu.Rows.Count
For C1 = 1 To R
For C2 = C1 + 1 To R
For C3 = C2 + 1 To R
For C4 = C3 + 1 To R
For C5 = C4 + 1 To R
rr = rr + 1
朱科技 = zhu(C1, 1) & "," & zhu(C2, 1) & "," & zhu(C3, 1) & "," & zhu(C4, 1) & "," & zhu(C5, 1)
If rr = num Then Exit Function
Next
Next
Next
Next
Next
End Function
更祥细的请看百度经验http://jingyan.baidu.com/article/597a06436fd872312a524343.html