Delete duplicates cells

[MayHmne]

I have tried the below macro and it is working but when applying it on a larger range of data (specifically 17137 rows) a considerable amount of data are deleted not just the duplicates

RemoveDupes add blank
Sub RemoveDupes()
Dim X As Long
For X = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Application.WorksheetFunction.CountIf(Range("A1:A" & X), Range("A" & X).Text) > 1 Then Rows(X).ClearContents
Next
End Sub

so, any other codes that solve this issue?

 

[Logit]

Option Explicit

Sub DeleteRows()
Dim Rng As Range
    With ActiveSheet
        Set Rng = Range("A1").End(xlDown)
        Rng.RemoveDuplicates Columns:=1, Header:=xlNo
    End With

End Sub

See if this works.

 

[MayHmne]

when running the macro
it says run time error '5'

 

[Logit]

Try saving the workbook,, close it. Then re-open and run.

 

[MayHmne]

The error still appears

 

[Peter_SSs]

a considerable amount of data are deleted not just the duplicates

Can you provide more detail about what is deleted that shouldn't be and where that data was?

Could you also provide your sample data and expected results with XL2BB so that we can see more exactly what you have and where it is & we can also then copy it for testing?

 

[MayHmne]

Can you provide more detail about what is deleted that shouldn't be and where that data was?

Could you also provide your sample data and expected results with XL2BB so that we can see more exactly what you have and where it is & we can also then copy it for testing?

The list contains family members and I should delete the duplicated rows but it turns out that the list has the other families having the same names of members so, excel considers it duplicated. but I solved the problem
Thank you

 

[Peter_SSs]

but I solved the problem
Thank you

OK, thanks for letting us know.

 

[Logit]

The macro is designed to check column A : Range("A1")

If you are checking a different column for the duplicates, change the A to the other column letter.

 

[Peter_SSs]

The macro is designed to check column A : Range("A1")

I got a different error to the OP but since your rng will just be a single cell, I'm not surprised that it didn't act as expected.