Remove Duplicate Value

[vijaychennai]

Hello Guru's

I want to remove duplicate value in Column A.

Excel Workbook
	A
1	Value
2	1
3	2
4	1
5	1
6	1
7	2
8	2
9	3
10	42
11	1
12	1
13	212
14	1212
15	1212
16	21212
17	365
18	26
19	15
20	26
21	369
22	78
23	12
Sheet1

Solution:

Excel Workbook
	A
1	Value
2	1
3	2
4
5
6
7
8
9	3
10	42
11
12
13	212
14	1212
15
16	21212
17	365
18	26
19	15
20
21	369
22	78
23	12
Sheet1

It is Possible in VBA Code....

 

[smartguy]

Try This...

Sub DeleteDups()
     
    Dim x               As Long
    Dim LastRow         As Long
     
    LastRow = Range("A65536").End(xlUp).Row
    For x = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & x).Text) > 1 Then
            Range("A" & x).EntireRow.ClearContents
        End If
    Next x
     
End Sub