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

1.。表一A23:J70
2.。表二A2:J50

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

温馨提示：内容为网友见解，仅供参考

当前网址：https://22.t2y.org/zz/cxh2t260hi0ihfx6xx6.html