如何使用VBA删除Excel宏中的两列重复项？

Sub DeleteDuplicates()
    Dim range1 As Range, range2 As Range, cell As Range
    
    '设置需要操作的两列范围
    Set range1 = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    Set range2 = Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    
    '循环遍历第一列中的每个单元格
    For Each cell In range1
        '检查第一列中的单元格是否与第二列中的任何单元格重复
        If WorksheetFunction.CountIf(range2, cell.Value) > 0 Then
            '如果重复，删除第一列和第二列中对应的整行数据
            cell.EntireRow.Delete
        End If
    Next cell
End Sub