Excel中VBA编码，如何删除两个表格中重复的区域，不保留重复值，求代码，谢谢！

Question

删除表1中年龄与表2相同的单元格所在行。求VBA代码，谢谢！

Answer 1

Sub 删除()
    For k = [b65536].End(3).Row To 2 Step -1
        If Application.CountIf(Sheet2.Range("b2:b2000"), Cells(k, 2)) > 0 Then Rows(k & ":" & k).Delete Shift:=xlUp
    Next
End Sub

Answer 2

Sub deleteData()
For j = 2 To [a65535].End(xlUp).Row
    For i = 2 To [a65535].End(xlUp).Row
        If Worksheets(1).Range("A" & i) = Worksheets(2).Range("A" & j)  and  Worksheets(1).Range("B" & i) = Worksheets(2).Range("B" & j) Then
        Worksheets(1).Range("A" & i) = ""
        Worksheets(1).Range("B" & i) = ""
        Worksheets(1).Range("C" & i) = ""
        End If
    Next
Next
End Sub

本回答被提问者采纳