任意7个数字，选出5个进行组合排列，并使用Excel打印组合的所有情况。

前言

参考自：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))