麻烦帮忙看看这段代码要怎么修改关于流水匹配问题

sulli112

1. Public Sub dsm()
   
2. '找出相同数据并删除
   
3. Dim m As Integer, n As Integer, r1 As Integer, r2 As Integer
   
4. r1 = Range("e65536").End(xlUp).Row
   
5. r2 = Range("k65536").End(xlUp).Row
   
6. For m = 2 To r2
   
7. For n = 2 To r1
   
8. If Range("e" & n) = Range("k" & m) Then
   
9. Range("e" & n).ClearContents
   
10. Range("a" & n).ClearContents
    
11. Range("k" & m).ClearContents
    
12. Range("j" & m).ClearContents
    
13. End If
    
14. Next n
    
15. Next m
    
16. End Sub

复制代码

好久没有来论坛了，最近遇到银行流水与金蝶导出核对明细账问题，想请教一下各位大神需要怎么处理，上面有一段代码，但是这段代码只能核对两边1贷方数据是否有相同的，如果有，就清楚相同数据＋前面日期，但是我想要的效果是左边的借方，贷方数据日期，与右边的借方，贷方，日期核对重复值，也就是日期＋金额一起核对，当日期＋金额一致时，才算重复，并且清空对应两边数据，金额匹配的话，希望能实现不会因为千分号与没有千分号情况，而导致匹配不上，非常感谢

sulli112

还要考虑如果左边出现类似2023-9-1 金额100一次，但是右边出现2023-9-1 金额100一次两次的情况下，能不能设置成，左边数据相同条件数据出现几次，右边清空几次呢，因为有时候会出现数据重复录入情况，谢谢

那时雨

sulli112 发表于 2023-10-10 20:11
麻烦看看，谢谢

居然看不懂，做个模拟效果看看。。。

dambcer

1. Public Sub dsm()
   
2.     '找出相同数据并删除
   
3.     Dim m As Integer, n As Integer, r1 As Integer, r2 As Integer
   
4.     r1 = Range("e65536").End(xlUp).Row
   
5.     r2 = Range("k65536").End(xlUp).Row
   
6.     For n = 2 To r2
   
7.         For m = 2 To r1
   
8.             If Range("e" & n) = Range("k" & m) And CDate(Range("a" & n)) = Range("j" & m) And Range("d" & n) = Range("l" & m) Then
   
9.                
   
10.                 Range("e" & n).ClearContents
    
11.                 Range("a" & n).ClearContents
    
12.                 Range("k" & m).ClearContents
    
13.                 Range("j" & m).ClearContents
    
14.             End If
    
15.         Next
    
16.     Next
    
17. End Sub

复制代码

sulli112

dambcer 发表于 2023-10-10 21:39

问一下，你这里判断是3个and，是不是意味着 借贷 日期三个条件一致，才清空数据，但是我想要的是借日期判断，贷日期判断，也就是说判断两次，用不同的金额+日期分别判断，谢谢

sulli112

最帅的哥 发表于 2023-10-11 01:46
如果不考虑 同一天，有借贷金额 完全相同的，用 Ado  只需要1个 Full Join  1句轻松完美解决。

肯定要考虑日期的，不然核对不准确

sulli112

leeson7502 发表于 2023-10-10 22:29

很感谢您的解答，但是有几个代码意思我想问一下，是不是那个意思，意思我都备注在代码后面，然后我想问问如果左边出现类似2023-9-1 金额100一次，但是右边出现2023-9-1 金额100一次两次的情况下，能不能设置成，只清楚数据一次呢？

1. Sub check()
   
2.     Dim ws As Worksheet
   
3.     Dim arr()
   
4.     Dim lastRow As Long
   
5.     Dim lastCol As Long
   
6.    
   
7.     Set ws = Sheets("Sheet1")
   
8.     With ws
   
9.         lastRow = .UsedRange.Rows.Count
   
10.         lastCol = .UsedRange.Columns.Count
    
11.         arr = .Range("A4:M" & lastRow).Value'A4行开始到M列数据吗？
    
12.     End With
    
13.     For i = 1 To UBound(arr)
    
14.         If arr(i, 3) <> "" Then'这里是指从第三行开始吗
    
15.             For j = 1 To UBound(arr)
    
16.                
    
17.                 If CDate(arr(i, 1)) = CDate(arr(j, 10)) Then'这里是指第一列A的数据等于第10列J借方发生额吗
    
18.                     If arr(i, 5) <> 0 Then'第五列贷方发生额不为空
    
19.                         If CDbl(arr(i, 5)) = CDbl(arr(j, 11)) Then'第五列与第11列贷方数据比对
    
20.                             arr(i, 5) = 0
    
21.                             arr(j, 11) = 0
    
22.                             GoTo NextFor
    
23.                         End If
    
24.                     ElseIf arr(i, 4) <> 0 Then
    
25.                         
    
26.                         If CDbl(arr(i, 4)) = CDbl(arr(j, 12)) Then’请问这里是不是比对借方数据？但是对应列数不对吧，应该是4比对9列数据吧？
    
27.                             arr(i, 4) = 0
    
28.                             arr(j, 12) = 0
    
29.                             GoTo NextFor
    
30.                         End If
    
31.                     End If
    
32.                 End If
    
33.                
    
34.             Next
    
35.         End If
    
36. NextFor:
    
37.     Next
    
38.     ws.Range("A4").Resize(UBound(arr), UBound(arr, 2)) = arr
    
39. End Sub
    

复制代码