前言
参考自:https://jingyan.baidu.com/article/fea4511a7acd20f7ba912545.html
任意7个数字,选出5个进行组合排列。
一、输入需要排列的数字
输入7个数字在A1至A7单元格中,排列好后如图显示,进行第2步。
二、按快捷键ALT+F11(先按ALT不放,接着按F11),调出VBA窗口,选择插入模块,此时会出现一个空白的窗口,进行第3步
三、粘贴代码
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
四、在任意单元格中输入公式,下拉即可自行排列出所有组合
=组合($A$1:$A$7,ROW(A1))