如何匹配正负合计为0的数，最好用宏，公式，写得出来也可以

lomen222

我是个财务，左边有一列数列（因举例，所以只举了那么一点数），我想清走正负为0的数，用函数公式写到我头都痛，都没有头绪。看来只能用宏来实现了，但我又不懂宏。。。。
条件描述：
1.左边数列正负为0的组合基本上该有的情况都有，如1对1正负为0、1对多个合计正负为0、多个对多个合计正负为0
2.测试结果正负合计为0的数在对应的C列标记Y，其余没有匹配的在对应的c列显示为空；或者正负匹配为0的这些数，显示底色为红色。
3.编宏时候应该该宏检测的数据为b整列。




谢谢~~~~~对大侠们来说，应该是小菜一碟~

正弋老兵

一对多,有点异想天开了!

香川群子

1 对 1 肯定简单的，按顺序从上到下一个一个配对就OK啦。

如果是1对多，那么请先明确次序规则：
1 对1 优先，还是顺序优先？

即，如果从上到下，有个数字 9，它应该先和最最后面的-9配对呢？
还是应该按顺序，先和 -2 、-3 、-4这三个数配对呢？

如果是-2 、-3 、-9、-4这样的顺序出现，应该先配对 -9呢？
还是应该优先配对： -2、-3、-4呢？


这个要请楼主明确。否则无法操作。


多对多，也存在同样的问题。
而且更加复杂。

比如，是几个先出现的正数和负数配对呢？
还是正数、负数交替出现也可以？


最后，为了简化计算量，多对多时，需要限制最多配对数。

否则，如果你的B列中数据有几十行的话，
这个计算量就已经可以让你的电脑死机了。

香川群子

最后，多余的一句，已经配对完成的，当然就不参加剩余数的配对了吧。


希望楼主把你要这样做的理由和目的，再稍加解释。

否则，难以帮到你。

lomen222

理由？erp中存在数据因为已经匹配，为了管理方便，把all item里面可以clear的data，清理至cleared item，剩下的就是open item。

其实这个东西我已早就知道是用公式出不来的，就算出来了，机器也承受不起。把这个贴放在这，其实就是避免漏了 excel公式版里的大侠。这个帖子我已在 vba版块里同时发过了。

其实假如可以实现的话，顺序您可以决定，我希望反馈的结果是正负为0的有个标记。

香川群子

原帖由 lomen222 于 2011-6-14 18:10 发表
理由？erp中存在数据因为已经匹配，为了管理方便，把all item里面可以clear的data，清理至cleared item，剩下的就是open item。

其实这个东西我已早就知道是用公式出不来的，就算出来了，机器也承受不起。把这个贴 ...

楼主你好。

第一步，用vba做了个一对一注释的按钮。

使用字典核对功能，遍历，并反复遍历直至结果无变化时停止。

顺便做了个清除注释，恢复数据原状的按钮。

1. Sub test()
   
2.     Dim d
   
3.     Set d = CreateObject("Scripting.Dictionary") '定义字典
   
4.    
   
5.     n = [b1].End(4).Row - 1
   
6.     [a1] = "No"
   
7.     [a2].Resize(n, 1) = "=row()-1"
   
8.     [a2].Resize(n, 1).Value = [a2].Resize(n, 1).Value 'A列中写入自然序号
   
9.     [c1] = "注释"
   
10.     a = [a2].Resize(n, 3) '读入数据到数组a中。
    
11.    
    
12. Chk: '反复检查核对。
    
13.     For i = 1 To n
    
14.         If a(i, 3) = "" And Not d.exists(a(i, 2)) Then '如果注释为空，且到目前为止该值尚未加入字典时(即无重复值时)
    
15.             If Not d.exists(-a(i, 2)) Then '并且如果字典中到目前为止也没有相反数存在时，
    
16.                 d.Add a(i, 2), i '符合上述条件则可加入字典作为新元素，并且该字典键值注释为行号值。
    
17.             Else '如果已知字典中已经存在相反数，则：
    
18.                 c = c + 1 '注释序号+1
    
19.                 a(i, 3) = "1对1#" & c '当前值添加1对1注释
    
20.                 a(d(-a(i, 2)), 3) = "1对1#" & c '已存在的相反数也添加1对1注释
    
21.                 d.Remove (-a(i, 2)) '从字典中移除该相反数
    
22.             End If
    
23.         End If
    
24.     Next
    
25.     If k < c Then k = c: GoTo Chk '检查比对成功注释次数是否有增加，如果有增加则可能有相同数未全部检查，回到前面再次遍历
    
26.     [a2].Resize(n, 3) = a '如果比对次数没有增加，则表明上一次检查已经无新增1对1成功配对，可以结束遍历检查。
    
27.    
    
28.     [a1].CurrentRegion.Sort Key1:=[c2], Header:=xlYes '按注释顺序排序。
    
29. End Sub

复制代码

请看附件效果。

feng1243

香川群子 发表于 2011-6-15 20:30
楼主你好。

第一步，用vba做了个一对一注释的按钮。

这只能找出一对一吗，能找出多对多吗