Excel VBA用于比较部分行和删除重复项

Sub CompareAndDeleteDuplicates()
    Dim lastRow As Long
    Dim i As Long, j As Long
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 循环比较每一行
    For i = 1 To lastRow
        ' 如果当前行不为空
        If Not IsEmpty(Cells(i, 1)) Then
            ' 循环比较当前行与后续行
            For j = i + 1 To lastRow
                ' 如果后续行不为空且与当前行相同
                If Not IsEmpty(Cells(j, 1)) And Cells(j, 1) = Cells(i, 1) Then
                    ' 删除后续行
                    Rows(j).Delete
                    ' 由于删除行后行号会发生变化，所以需要减去1
                    j = j - 1
                    ' 更新最后一行的行号
                    lastRow = lastRow - 1
                End If
            Next j
        End If
    Next i
End Sub