求老师们给修改下删除行的代码，谢谢！

xinshou05

此代码是一老师写的，我复制用，点击按钮就是不执行，求老师们给修改下。在F列只要有相同单据号和与之对应的借方、贷方金额相等就删除此行。类似银行对账 银行对账是相同打勾，我是相同删除（删除整行)。此表是每月都要复制粘贴数据，和以前月份进行比对，然后删除相同的行。详见附件。谢谢老师们的帮助！

xinshou05

迫切老师们帮助，有老师在吗？感激不尽！

tudarong

请测试。

1. Sub test()
   
2.     Dim dic As Object, d As Object
   
3.     Dim m%, Arr, i%, j%
   
4.     Dim Str As String
   
5.     Application.ScreenUpdating = False
   
6.     Set dic = CreateObject("scripting.dictionary")
   
7.     Set d = CreateObject("scripting.dictionary")
   
8.     m = [A65536].End(xlUp).Row
   
9.     Arr = Range("F1:J" & m)
   
10.     '将单据号和贷方合成字符串，装入字典
    
11.     For i = 2 To UBound(Arr, 1)
    
12.         If Arr(i, 2) = "" Then
    
13.             Str = Arr(i, 1) & Arr(i, 3)
    
14.             dic(Str) = ""
    
15.         End If
    
16.     Next
    
17.     '正向查找
    
18.     For i = 2 To UBound(Arr, 1)
    
19.         If Arr(i, 2) <> "" Then
    
20.             Str = Arr(i, 1) & Arr(i, 2)
    
21.             If dic.exists(Str) Then
    
22.                 Cells(i, "I") = 22
    
23.             End If
    
24.         End If
    
25.     Next
    
26.     '将单据号和借方合成字符串，装入字典
    
27.     For i = 2 To UBound(Arr, 1)
    
28.         If Arr(i, 2) <> "" Then
    
29.             Str = Arr(i, 1) & Arr(i, 2)
    
30.             d(Str) = ""
    
31.         End If
    
32.     Next
    
33.     '反向查找
    
34.     For i = 2 To UBound(Arr, 1)
    
35.         If Arr(i, 2) = "" Then
    
36.             Str = Arr(i, 1) & Arr(i, 3)
    
37.             If d.exists(Str) Then
    
38.                 Cells(i, "I") = 22
    
39.             End If
    
40.         End If
    
41.     Next
    
42.     '删除相同单据号的借方和贷方 行
    
43.     For i = 2 To UBound(Arr, 1)
    
44.         If Cells(i, "I") = 22 Then
    
45.             Rows(i).Delete Shift:=xlUp
    
46.             i = 2
    
47.         End If
    
48.     Next
    
49.     Application.ScreenUpdating = True
    
50. End Sub

复制代码

xinshou05

谢谢tudarong老师，这就是我要的。感谢！

tudarong

不客气，相互学习。

xinshou05

老师可以再改下吗？只针对 F G H列 代码  其他只作为辅助。

tudarong

查找（识别单据号列）_.7z (13.36 KB, 下载次数: 3)

2018-7-18 09:06 上传

点击文件名下载附件

请测试附件

xinshou05

这回代码完美，谢谢老师！

xinshou05

老师 可以再写一个代码吗？在F（借方） G （贷方）只要有金额相同就删行。

xinshou05

我把表格上传 见附件 谢谢！