任意15个数字6个组合排列

假如随意15个数字在A1至A15单元格中，排列好后如图显示，进行第2步

按快捷键ALT+F11(先按ALT不放，接着按F11)，调出VBA窗口如图片显示，进行第3步

菜单栏----插入模块，此时会出现一个空白的窗口，进行第4步

把以下代码复制粘贴到窗口中，粘贴好后在关掉窗口 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 For C6 = C5 + 1 To R rr = rr + 1 朱科技 = zhu(C1, 1) & "," & zhu(C2, 1) & "," & zhu(C3, 1) & "," & zhu(C4, 1) & "," & zhu(C5, 1) & "," & zhu(C6, 1) If rr = num Then Exit Function Next Next Next Next Next Next End Function

在任意单元格中输入公式下拉即可自行排列出所有组合 =朱科技($A$1:$A$15,ROW(A1))