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

2023年1月2日 129次阅读 来源: 普朗克三号粉丝

前言

参考自：https://jingyan.baidu.com/article/fea4511a7acd20f7ba912545.html
任意7个数字，选出5个进行组合排列。

一、输入需要排列的数字

输入7个数字在A1至A7单元格中，排列好后如图显示，进行第2步。
《任意7个数字，选出5个进行组合排列，并使用Excel打印组合的所有情况。》

二、按快捷键ALT+F11(先按ALT不放，接着按F11)，调出VBA窗口，选择插入模块，此时会出现一个空白的窗口，进行第3步

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

三、粘贴代码

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

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

四、在任意单元格中输入公式，下拉即可自行排列出所有组合

=组合($A$1:$A$7,ROW(A1))

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

    原文作者：普朗克三号粉丝
    原文地址: https://blog.csdn.net/weixin_45275802/article/details/125170812
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞