EXCEL 如何制作瀑布图,对于有些数据做图表非常适合用瀑布图，比如生活开支......
Excel表格使用VBA进行不重复的数组组合
来源：互联网
2023-02-20 17:37:31 版权归原作者所有，如有侵权，请联系我们
如下图所示，要从A列中的A1、A2、A3、A4、A5、A6、B1、B2、B3、B4、B5、B6共12个数里面选出4个数进行组合，而选择出来的数进行组合后，其顺序不论怎样颠倒都不能重复。经过计算，其组合个数应为：C=（12*11*10*9）/（4*3*2*1）=495。
1Excel表格上面使用VBA进行数组组合
工具/原料
- 电脑
- Excel 2010
方法/步骤
先看一个简单的例子来寻找规律，如：从1、2、3、4、5共5个数里面选出3个数进行组合，那么就有10种组合方法。其按顺序进行组合时（不容易出错），第一个数最大只能到3，排在第二个数的可以到4，第三个可以到5，并且在排序时第三个数>第二个数>第一个数。
有了这些规律，接下来就可以着手写VBA代码程序了。
点击菜单栏上面的【开发工具】，再点击工具栏里面的【Visual Vasic】打开VBA编辑器。
在VBA编辑器的菜单栏上面点击【插入】，【模块】。
在代码框里面输入以下VBA程序：
Sub Zuhe()
Dim i, j, k, l, m As Long
Dim a, b, c, d As String
m = 0 '将m的初始值设为0，代表的是第几行
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '工作表定义
For i = 1 To 9 '第一个数值只能到第9个位置，即：12-4 1
For j = 1 To 10 '第二个数值只能到第10个位置，即：12-4 2
For k = 1 To 11 '第三个数值只能到第11个位置，即：12-4 3
For l = 1 To 12 '第四个数值只能到第12个位置，即：12-4 4
a = mysheet1.Cells(i, 1) '将第i个单元格里面的数值赋给a
If j > i And j > i Then '如果已经选择第i个单元格里面的数值，则不能再选择，且选择的单元格需要大于i
b = mysheet1.Cells(j, 1)
If k > i And k > j And k > j Then '如果已经选择第i、j个单元格里面的数值，则不能再选择，且选择的单元格需要大于j
c = mysheet1.Cells(k, 1)
If l > i And l > j And l > k And l > k Then '如果已经选择第i、j、k个单元格里面的数值，则不能再选择，且选择的单元格需要大于k
d = mysheet1.Cells(l, 1)
m = m 1
mysheet1.Cells(m, 2) = a & b & c & d '将选择出来的数值进行组合放到第2列
End If
End If
End If
Next
Next
Next
Next
End Sub
在这程序里面，主要是逐一递增的进行选择，后面要选择的数不能重复并且要比前一个数选择的位置大，最后进行组合。
按下【F5】键运行VBA程序，也可点击VBA编辑器工具栏里面的运行图标运行程序。
程序运行完成之后，就可以看到组合的结果。其组合数填充到495行，与计算出来的组合个数相符。
注意事项
- 个人经验，仅供参考。
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
