Delete Double Cells (Excel 97)

Topic

New Reply

Hello,

I hope someone can help me with this. Can I write a macro so that I can delete all the rows that have the same data in a specific column?

Reply | Quote

Replies

This code will delete all of the rows in that have duplicates in column A.

Public Sub DelDups()
Dim I As Long, J As Long, lMax As Long
    lMax = Worksheets("Sheet1").Range("A1").Offset(Worksheets("Sheet1").UsedRange.Rows.Count, 0).End(xlUp).Row - 1
    For I = lMax To 1 Step -1
        For J = I - 1 To 0 Step -1
            If Worksheets("Sheet1").Range("A1").Offset(I, 0).Value = Worksheets("Sheet1").Range("A1").Offset(J, 0).Value Then
                Worksheets("Sheet1").Range("A1").Offset(J, 0).EntireRow.Delete
            End If
        Next J
    Next I
End Sub

Reply | Quote

Thanks for you help!

Reply | Quote