[已解决]怎样多条件找出多组一正一负的数据 ?（有附件）

青春白开水

如题：怎样多条件找出多组一正一负的数据 ?
，最好是简单易操作的方法，请大家帮忙啊~有附件

最佳答案

月排行榜 / 总排行榜

dsmch

2016-5-29 06:49

1. Sub Macro1()
   
2. Dim arr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. For i = 2 To UBound(arr)
   
6.     zf = arr(i, 1) & "," & arr(i, 2) & "," & Abs(arr(i, 3))
   
7.     If Not d.exists(zf) Then
   
8.         d(zf) = i
   
9.     Else
   
10.         n = d(zf)
    
11.         If arr(n, 3) + arr(i, 3) = 0 Then
    
12.             Cells(i, 4) = n: Cells(n, 4) = i: d.Remove (zf)
    
13.         End If
    
14.     End If
    
15. Next
    
16. End Sub

复制代码

跳转到最佳答案楼层

砂海

木有看到附件

青春白开水

表格1   如下图：

青春白开水

砂海 发表于 2016-5-28 22:15
木有看到附件

附件已上传，请查看

青春白开水

表格2   如下图

baksy

=IF((A3=A4)*(C3+C4=0)+(A3=A2)*(C3+C2=0),"消减"&IF(C3>0,"+","-"),"")

dsmch

1. Sub Macro1()
   
2. Dim arr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. For i = 2 To UBound(arr)
   
6.     zf = arr(i, 1) & "," & arr(i, 2) & "," & Abs(arr(i, 3))
   
7.     If Not d.exists(zf) Then
   
8.         d(zf) = i
   
9.     Else
   
10.         n = d(zf)
    
11.         If arr(n, 3) + arr(i, 3) = 0 Then
    
12.             Cells(i, 4) = n: Cells(n, 4) = i: d.Remove (zf)
    
13.         End If
    
14.     End If
    
15. Next
    
16. End Sub

复制代码

zyouong

表格2.rar (9.49 KB, 下载次数: 4)

2016-5-29 16:14 上传

点击文件名下载附件

青春白开水

baksy 发表于 2016-5-29 06:37
=IF((A3=A4)*(C3+C4=0)+(A3=A2)*(C3+C2=0),"消减"&IF(C3>0,"+","-"),"")

你的方法只是找出了所有一正一负的数据，但是我的目的是要找出对应的一正一负的无效数据就行了，如只要找出"C4和C5".

青春白开水

zyouong 发表于 2016-5-29 16:14

谢谢解答，但是你的方法我试了一下，还是不行，你的公式只是找出了日期为同一天，类型同为“收入”或者同为“支出”，金额的“绝对值”相同的数据。