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

2025-03-06 13:31:19

推荐回答（1个）

回答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