把表格中有一正一负相加等于0的数值标识

百草青

同一项目里，正负求和为0的，反馈抵消，余下的正值或负值保留。如下图。可用什么函数或VBA语言解决？在C列处，标记抵消或保留。

编码	金额	反馈
A04FZ113267	1310	抵消
A04FZ113267	-1310	抵消
A04FZ113267	-16923.08	抵消
A04FZ113267	-6584.62	抵消
A04FZ113267	6584.62	抵消
A04FZ113267	16923.08	抵消
A04FZ113267	1310	保留

ggmmlol

1. Sub test()
   
2. ar = Range("A1").CurrentRegion.Resize(, 2)
   
3. r = UBound(ar)
   
4. ReDim br(1 To r, 1 To 1)
   
5. br(1, 1) = "反馈"
   
6. Set d = CreateObject("scripting.dictionary")
   
7. Set reg = CreateObject("vbscript.regexp")
   
8. reg.Pattern = "^\d+、"
   
9. For i = 2 To r
   
10.     If ar(i, 2) = 0 Then
    
11.         br(i, 1) = "抵消"
    
12.     Else
    
13.         f1 = ar(i, 1) & IIf(ar(i, 2) < 0, "正", "负") & Abs(ar(i, 2))
    
14.         If d.exists(f1) Then
    
15.             br(i, 1) = "抵消"
    
16.             x = d(f1)
    
17.             br(Val(x), 1) = "抵消"
    
18.             x = reg.Replace(x, "")
    
19.             If x = "" Then d.Remove f1 Else d(f1) = x
    
20.         Else
    
21.             f0 = ar(i, 1) & IIf(ar(i, 2) > 0, "正", "负") & Abs(ar(i, 2))
    
22.             d(f0) = d(f0) & i & "、"
    
23.         End If
    
24.     End If
    
25. Next
    
26. Range("C1").Resize(r) = br
    
27. End Sub

复制代码

micch

别难为函数了，不好弄啊，如果需要抵消的两个数是挨着的，一正一负，那还好判断一些，但是后面的数据好像不是这样的，不好整

zyhqzn

不知道对不对，先放在这儿吧！pq所做

百草青

ggmmlol 发表于 2019-4-23 17:27

谢谢大神，问题已解决。谢谢！辛苦啦！

百草青

micch 发表于 2019-4-23 18:17
别难为函数了，不好弄啊，如果需要抵消的两个数是挨着的，一正一负，那还好判断一些，但是后面的数据好像不 ...

谢谢，辛苦啦！函数是不好弄

百草青

zyhqzn 发表于 2019-4-23 23:06
不知道对不对，先放在这儿吧！pq所做

谢谢啦，金额能对上，应该是对的哦，就是我不懂pq,所以不懂你操作的原理。谢谢，辛苦啦！一楼的大神VBA，也已经解决了我的困难。谢谢，辛苦啦！

净虚空

都是高手，都是大神

象山海鲜

micch 发表于 2019-4-23 18:17
别难为函数了，不好弄啊，如果需要抵消的两个数是挨着的，一正一负，那还好判断一些，但是后面的数据好像不 ...

1. =IF(COUNTIFS(A:A,A2,B:B,-B2)<COUNTIFS(A$1:A2,A2,B$1:B2,B2),"保留","抵消")

复制代码

micch

象山海鲜 发表于 2019-12-28 16:32

版主大人V5啊，这么简单我都没想到，思路决定高度啊