Please check Row deletion code

[syed01]

Dear Expert,
I write an macro for the deletion of same data in a row just after the searching and thanks to this forum. Please anyone correct me because i found an error in the execution.Attachment is for your ref:

Code::

Sub del()
Dim a As Range
Dim b, c As Integer
a = Cells(Row.Count, a).End(X1up).Row
For b = 1 To a Step -1
For c = 2 To a Step -1
If Cells(b, a).Value = Cells(c, a).Value Then
Cells(c, a).EntireRow.delete
Next c
Next a
End Sub

[Jakobshavn]

Dim a As Long

and

a = Cells(Rows.Count, a).End(X1up).Row

[AB33]

Use indentation in your code

Please Login or Register  to view this content.

[:) Sixthsense :)]

Try this...

Please Login or Register  to view this content.

[AB33]

Use Excel's function (Remove duplicates). You do not need a code for this task.

[AB33]

Please Login or Register  to view this content.

[syed01]

Dear All Experts,
Thanks alot.

@AB33, as i am beginner, so i will do from VBA

[AB33]

"so i will do from VBA"
Hence I have corrected your code. The reason for not seeing the error is because of lack of indentation. If you had indented the code, you would have spotted the error.

[syed01]

I found an error of "Type Mismatch" from the below code:

Sub del()
Dim a As Range
Dim b, c As Integer
a = Cells(Rows.Count, a).End(X1up).Row
For b = 1 To a Step -1
For c = 2 To a Step -1
If Cells(b, a).Value = Cells(c, a).Value Then
Cells(c, a).EntireRow.Delete
End If
Next c
Next b
End Sub

[AB33]

Please use code tags with your code

Please Login or Register  to view this content.