多语言展示
当前在线:641今日阅读:113今日分享:31

任意10个数字6个组合

分步阅读对于经常玩数字排列组合的小伙伴有福啦!编写EXCEL公式要用很多IF判断公式太麻烦,下面就由朱科技教各位小伙伴怎么用EXCEL中的VBA代码来快速实现30任意15个数字6个组合排列
工具/原料
1

电脑

2

EXCEI

方法/步骤
2

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

3

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

4

把以下代码复制粘贴到窗口中,粘贴好后在关掉窗口Function 朱科技(zhu As Range, num As Integer)R = zhu.Rows.CountFor C1 = 1 To RFor C2 = C1 + 1 To RFor C3 = C2 + 1 To RFor C4 = C3 + 1 To RFor C5 = C4 + 1 To RFor C6 = C5 + 1 To Rrr = 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 FunctionNextNextNextNextNextNextEnd Function

5

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

推荐信息