文章通过一个实例来介绍数字排列组合公式的写法,感兴趣的朋友对排列组合公式稍微变通实现类似的需求 。
需要排列组合公式的,多是对数字感兴趣的朋友,喜欢对数字排列组合 。
本文介绍通过excel中编写VBA代码,掌握一些规律和算法来写排列组合公式 。
数字排列组合公式的思路,可以这样理解:从n个不同元素中,任取m(m≤n)个元素按照一定的顺序排成一列 。
下面通过一个实例来讲解如何通过排列组合公式完成数字排列组合 。
【Excel数字排列组合公式写法介绍】比如从"9876543"中任意取5个数来进行排列组合,方法是:
新建一个工作表,按ALT+F11,打开VBE编辑器,插入——模块,在右边代码编辑框复制下面的代码,然后单击工具栏的“运行”命令,然后切换到工作表中,可以看见A列已经根据排列组合公式自动生成了所需要的所有数字排列组合 。
Sub 排列组合公式()
Dim II%, I%, J%, K%, L%, M%
Dim Srt1$, Srt2$, Srt3$, Srt4$, Srt5$
Dim TStr1$, TStr2$, TStr3$, TStr4$
Dim t, arr()
Const FullStr = "9876543"
t = Timer
II = 0
For I = 1 To 7
Srt1 = Mid(FullStr, I, 1)
TStr1 = Replace(FullStr, Srt1, "")
For J = 1 To 6
Srt2 = Mid(TStr1, J, 1)
TStr2 = Replace(TStr1, Srt2, "")
For K = 1 To 5
Srt3 = Mid(TStr2, K, 1)
TStr3 = Replace(TStr2, Srt3, "")
For L = 1 To 4
Srt4 = Mid(TStr3, L, 1)
TStr4 = Replace(TStr3, Srt4, "")
For M = 1 To 3
Srt5 = Mid(TStr3, M, 1)
II = II + 1
ReDim Preserve arr(1 To II)
arr(II) = Srt1 & Srt2 & Srt3 & Srt4 & Srt5
Next
Next
Next
Next
Next
Range("A1:A" & II) = Application.Transpose(arr)
End Sub
推荐阅读
- Excel 单元格的引用方法
- Excel隐藏工作表界面只显示用户窗体的三种方法
- Excel VBA使用vlookup出现1004错误解决方法
- Excel VBA中的Date类型的匹配问题
- Excel批量导入图片的方法实例教程
- Excel VBA中让你意想不到的陷阱
- Excel删除数字保留文本的两种方法
- 怎么停止Excel屏幕刷新
- Excel VBA单元格的引用方法
- Excel for VBA:对象枚举循环For each