组合求和，求一段代码。先谢谢各位老师了

又一年了 · 发表于 2013-5-12 10:53

详附件

组合求和.rar (4.81 KB, 下载次数: 56)

thjszxzdy · 发表于 2013-5-12 12:10

本帖最后由 thjszxzdy 于 2013-5-12 16:42 编辑

这样的数有无穷，若是全加或者全减差不多可数。或者只挑选出5个值以内也许行的。要多一点条件限制才行。推算一下，是可以做出来的，递归的方法我不是很熟。无法帮忙了。5楼搞出来了，不错。虽然我也看不懂，但粗略知道它没有减法。我可以写个减法，不枉占楼。仅仅有正负数，主体程序在5楼。

Sub jishu()
Dim arr, arr2
Dim i, p
ReDim arr(1 To Range("a65536").End(3).Row)
For p = 1 To Range("a65536").End(3).Row
arr(p) = Cells(p, 1).Value
Next p
b = UBound(arr)
c = LBound(arr)
ReDim Preserve arr(1 To b * 2)
For i = b + 1 To UBound(arr)
t = i - 12
arr(i) = Cells(t, 1).Value * (-1)
Next i
For r = 1 To UBound(arr)
Cells(r, 1).Value = arr(r)
Next r
End Sub

复制代码

小花鹿 · 发表于 2013-5-12 13:02

占位等高手。

过桥 · 发表于 2013-5-12 13:06

帮你顶一下,等待学习!!!!

dsmch · 发表于 2013-5-12 13:57

加数和减数分别求和再判断

又一年了 · 发表于 2013-5-12 17:18

5楼的代码很好用。不愧为高手，这么难的问题那么快就写出来了。谢谢！！！！
只是代码没有减法，该怎么修改呢？

又一年了 · 发表于 2013-5-12 17:26

老师，可不可以在B列加一列A列的负值，运算时取A1、B1中的一个值？

dsmch · 发表于 2013-5-12 21:01

比如第一次输入40，结果为：
17,5,18
18,17,5
25,9,6
3,9,6,17,5
5,17,18
5,18,17
5,3,9,5,18
5,3,9,6,17
5,3,18,9,5
12,6,17,5
12,3,25
12,5,5,18
12,5,6,17
12,5,18,5
12,5,3,9,6,5
第二次输入 (40-20)/2=10 结果为：
5,5
第一次结果包含5,5的，即为负数

20120501 · 发表于 2013-5-12 21:53

类似这类排列组合的情况在算法上确实是一个挺不错的东东。经常玩这些确实能够锻炼我们的一些思考问题的方式。
楼上dsmch兄，给的一种使用“位”的思路确实挺快速方便，值得学习。
我使用的递归方法进行处理的，随着值的增多，处理的时间越来越多，也出现溢出的情况。你可以根据自己的情况，进行优化处理。
单一的你给的12个数据考虑加减的情况出现的组合达到2945个组合。

bluexuemei · 发表于 2013-5-12 21:55

凑数字简单，但是要求的那个地址真的不知道怎么弄！

		自动登录	找回密码
密码			免费注册

[求助] 组合求和，求一段代码。先谢谢各位老师了

点评

点评