excel vba删除表一与表二重复内容(二个表都删除)

excel vba删除表一与表二重复内容(二个表都删除)

Sub RmSame()

    Dim A As Range, B As Range

    

    For Each A In Sheets(1).Range("A23:J70")

        For Each B In Sheets(2).Range("A2:J50")

            If A.Value = B.Value Then A.Value = "": B.Value = ""

        Next

    Next

End Sub追问A范围修改为("A2:J2000")
B范围修改为("A5:J3000")
删除时间过长，好卡追答试试用Find方法是否可以快一些
Sub RmSame()
    Dim A As Range, B As Range
    
    For Each A In Sheets(1).Range("A23:J70")
        With Sheets(2).Range("A2:J50")
            If A.Value <> "" Then 
                Set B = .Find(A.Value, LookIn:=xlValues, LookAt:=xlWhole)
                If Not B Is Nothing Then
                    Do
                        B.Value = ""
                        Set B = .FindNext(B)
                    Loop While Not B Is Nothing
                    A.Value = ""
                End If
            End If 
        End With
    Next
End Sub