如何列出所有组合及计算结果：数列中任意2个或多个数之和，以及差值

lumou

求助大神，如何列出一个数列中所有组合及计算结果，具体见下图及附件
注：A,B,C,D,E是数列中不重复的值

1016373263

用递归组合

yjh_27

1、 4 是组合问题
2、 3 、5 是分配问题    n个不同元素按照某些条件分配给k个不同得对象，称为分配问题

当然1、 4也可看成只有一个对象的分配问题C(n,m1)*C(n-m1,m2)*C(n-m1-m2,m3)*...*C(mk,mk)

1 C(9,2)
2 C(9,2)*C(7,1)
3 C(9,2)*C(7,2)
4 C(9,3)
5 C(9,3)*C(6,2)

1016373263

Dim arr1(1 To 500, 1 To 2), k As Integer
Sub 两个数组合及之和()
Dim arr, sht As Worksheet
Set sht = Worksheets("sheet1")
k = 0
arr = sht.Range("a3", sht.[b3].End(xlDown))
Call zuhe(arr, LBound(arr), UBound(arr), "", 0, 0)
sht.[c13].Resize(UBound(arr1), 2) = arr1
End Sub

Sub zuhe(arr, l, r, str, z, gg)
If gg = 2 Then
k = k + 1
arr1(k, 1) = Application.Substitute(str, "+", "", 2)
arr1(k, 2) = z
Exit Sub
End If
If l < r + 1 Then
Call zuhe(arr, l + 1, r, str & arr(l, 1) & "+", z + arr(l, 2), gg + 1)
Call zuhe(arr, l + 1, r, str, z, gg)
End If
End Sub

1016373263

1016373263 发表于 2020-2-26 22:18
Dim arr1(1 To 500, 1 To 2), k As Integer
Sub ???????????()
Dim arr, sht As Worksheet

这是任意两个数组合及之和。三个数把gg=2改为gg=3即可，k,arr1为模块级变量

1016373263

三个数的组合.zip (18.48 KB, 下载次数: 12)

2020-2-26 22:46 上传

点击文件名下载附件

lumou

1016373263 发表于 2020-2-26 22:46

非常感谢，刚刚开学学习vba，小白一个。能麻烦把差值的那3栏的代码写一下吗，以便好好学习。工作中用到，麻烦了！

lumou

1016373263 发表于 2020-2-26 22:46

非常感谢，刚开始学习vba，小白一个。能麻烦把差值的那三栏代码也写一下吗，以便对照学习。麻烦了！

lumou

1016373263 发表于 2020-2-26 22:46

非常感谢，刚开始学习vba，小白一个。能麻烦把差值的那三栏代码也写一下吗，以便对照学习。麻烦了！

lumou

yjh_27 发表于 2020-2-26 21:59
1、 4 是组合问题
2、 3 、5 是分配问题    n个不同元素按照某些条件分配给k个不同得对象，称为分配问题
...

小白一个，能麻烦写下代码吗，以便对照学习，非常感谢！