H
hayk_yer - ExcelForums.com
Hello everyone
I am using the following code to remove the duplicates from a selecte
column
Sub FixDuplicateRows(
Dim RowNdx As Lon
Dim ColNum As Intege
ColNum = Selection(1).Colum
For RowNdx = Selection(Selection.Cells.Count).Row To
Selection(1).Row + 1 Step -
If Cells(RowNdx, ColNum).Value = Cells(RowNdx - 1, ColNum).Valu
The
Cells(RowNdx, ColNum).Value = "
End I
Next RowNd
End Su
I need to draw a border when the program finishes to remove
duplicate, i.e. suppose I have the following data
Brian Smit
Brian Smit
Brian Smit
John Grea
John Grea
John Grea
I need to have the following outpu
-------------
Brian Smith
Smith
Smith
I am using the following code to remove the duplicates from a selecte
column
Sub FixDuplicateRows(
Dim RowNdx As Lon
Dim ColNum As Intege
ColNum = Selection(1).Colum
For RowNdx = Selection(Selection.Cells.Count).Row To
Selection(1).Row + 1 Step -
If Cells(RowNdx, ColNum).Value = Cells(RowNdx - 1, ColNum).Valu
The
Cells(RowNdx, ColNum).Value = "
End I
Next RowNd
End Su
I need to draw a border when the program finishes to remove
duplicate, i.e. suppose I have the following data
Brian Smit
Brian Smit
Brian Smit
John Grea
John Grea
John Grea
I need to have the following outpu
-------------
Brian Smith
Smith
Smith