查找重复项并删除整行(使用Do While和If循环)

Sub RemoveDuplicateRows()
    Dim rng As Range
    Dim row As Range
    Dim rowCount As Long
    Dim i As Long, j As Long
    Dim duplicate As Boolean
    
    ' 假设数据存储在名为"Sheet1"的工作表中的A1:D100范围内
    Set rng = Worksheets("Sheet1").Range("A1:D100")
    rowCount = rng.Rows.Count
    
    i = 1
    Do While i <= rowCount
        duplicate = False
        Set row = rng.Rows(i)
        
        ' 检查当前行与后续行是否完全相同
        For j = i + 1 To rowCount
            If Application.WorksheetFunction.CountIf(rng.Rows(j), row.Cells) = rng.Columns.Count Then
                ' 如果完全相同，则标记为重复项
                duplicate = True
                Exit For
            End If
        Next j
        
        ' 如果找到重复项，则删除当前行
        If duplicate Then
            row.Delete
            rowCount = rowCount - 1
        Else
            i = i + 1
        End If
    Loop
End Sub