满足条件后删除行，求大神帮忙改改！

wbjiqpl

查询工作表1AB列与工作表2A B列是否相同，相同的不删除行。不相同的删除。现在想在C列添加数据，AB列相同的情况下，C列对应的单元格等于空才删除。

达到效果后，代码只删除第四行。因为第二行有跟工作表相同，第三行因为C列值不是空，所以这两行保留了。只有第四行，数据不相同，并且C列值又是空，所以删除。求大神必需修改。

1. Sub 宏1()
   
2.     Dim arr, i&, d As Object
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("Sheet2").Range("A1").CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         d(arr(i, 1) & arr(i, 2)) = ""
   
7.     Next
   
8.     With Sheets("Sheet1")
   
9.         arr = .Range("A1").CurrentRegion
   
10.         For i = UBound(arr) To 2 Step -1
    
11.             If Not d.Exists(arr(i, 1) & arr(i, 2)) Then
    
12.             If d(arr(i, 3)) = "" Then .Rows(i).Delete
    
13.             End If
    
14.              Next
    
15.     End With
    
16. End Sub
    

复制代码

查询工作表1AB列与工作表2A B列是否相同，相同的不删除行。不相同的删除。现在想在C列添加数据，AB列相同的情况下，C列对应的单元格等于空才删除。

达到效果后，代码只删除第四行。因为第二行有跟工作表相同，第三行因为C列值不是空，所以这两行保留了。只有第四行，数据不相同，并且C列值又是空，所以删除。求大神必需修改。

不知道为什么

就这么一两行数据自己手工处理下也很方便的

wbjiqpl

不知道为什么 发表于 2018-9-30 17:28
就这么一两行数据自己手工处理下也很方便的

上万条数据呀

不知道为什么

wbjiqpl 发表于 2018-9-30 17:45
上万条数据呀

多放点数据把，便于测试

wbjiqpl

不知道为什么 发表于 2018-9-30 17:51
多放点数据把，便于测试

多放了一点，还请帮忙看一下。

不知道为什么

wbjiqpl 发表于 2018-9-30 18:02
多放了一点，还请帮忙看一下。

其实你这句代码变化下就可以了。

只是你10000多行的话，估计效率不是很高啊。你试试把

Sub 宏1()
    Dim arr, i&, d As Object
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets("Sheet2").Range("A1").CurrentRegion
    For i = 2 To UBound(arr)
        d(arr(i, 1) & arr(i, 2)) = ""
    Next
    With Sheets("Sheet1")
        arr = .Range("A1").CurrentRegion
        For i = UBound(arr) To 2 Step -1
            If Not d.Exists(arr(i, 1) & arr(i, 2)) And Len(arr(i, 3)) = 0 Then
                .Rows(i).Delete
            End If
        Next
    End With
End Sub

wbjiqpl

我好像试过，我是直接=""，我要试一下