基于两列VBA比较和删除重复行

Sub RemoveDuplicateRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim isDuplicate As Boolean
    
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行开始向上遍历，以避免因删除行而改变行号
    For i = lastRow To 2 Step -1
        isDuplicate = False
        ' 比较当前行与之前的所有行
        For j = 2 To i - 1
            If ws.Cells(i, "A").Value = ws.Cells(j, "A").Value And _
               ws.Cells(i, "B").Value = ws.Cells(j, "B").Value Then
                isDuplicate = True
                Exit For
            End If
        Next j
        ' 如果找到重复行，则删除
        If isDuplicate Then
            ws.Rows(i).Delete
        End If
    Next i
End Sub