Question

excelvba删除整行重复项

怎样删除工作簿指定多个sheet里面整行有重复的项，保留靠上重复的值。

Answer 1

Sub 删除重复行()
    Dim xRow As Integer
    Dim i As Integer
    xRow = Range("B65536").End(xlUp).Row
    For i = 2 To xRow
        For j = i + 1 To xRow
            If Cells(j, 2) = Cells(i, 2) Then
                Range(Cells(j, 1), Cells(j, 256)).Rows.Delete
                j = j - 1
                xRow = xRow - 1
            End If
        Next
    Next
End Sub