delete duplicate rows, delete empty rows

This is the code I usually use. It asks which column to check for duplicates and blanks.

Sub DeleteDuplicates()
Dim colbox As String
colbox = InputBox(Prompt:="Column to search for duplicates:", Title:="Column", Default:="A")
colstring = colbox & ":" & colbox
checkrow = 2

Application.ScreenUpdating = False

Do Until checkrow = lastrow

lastrow = ActiveSheet.UsedRange.Rows.Count

matchcheck = Application.CountIf(Range(colstring), Cells(checkrow, colbox))
    
    If matchcheck > 1 Then
    Cells(checkrow, colbox).EntireRow.Delete
    ElseIf Cells(checkrow, colbox) = "" Then
    Cells(checkrow, colbox).EntireRow.Delete
    
    Else
    checkrow = checkrow + 1

End If

Loop

Application.ScreenUpdating = True

MsgBox ("Done deleting duplicates.")

End Sub

Not the most efficient or best way at all but I personally like it. Good Luck

Originally Posted by arlu1201

So even if a file has 20 columns of data, you want all 20 columns to be compared to each other for duplicates?

regardless of the number of columns, data will be considered as rows only