Dear Kasper,
You can also use below code for Ms. Excel All version (2003+)
Sub Remove_Duplicates()
With Sheet2
.Range(A1:A .Cells(Rows.Count, A).End(xlUp).Row).AdvancedFilter
Action:=xlFilterCopy, copytoRange:=.Range(C1), unique:=True
End With
End Sub
--
With Regards,
Noorain Ansari
http://
Hi
Thanks for reply,I know about duplicate removeal but I am serching for a
permanent formula .
Regards
Rajesh
On Tuesday, January 1, 2013 9:23:20 PM UTC+5:30, Prince wrote:
Hi Kasper,
Dear instead of giving solution i just want to give the idea required to
accomplish your task.just
If yes then please check this one
I have programmed below code just cut and paste this and run
Public Sub removeDuplicateId()
Dim vardata As Variant
Dim varRes As Variant
Dim lngRow As Long
Dim objDic As Object
Set objDic =
@Prince
Instead of using dictionary or array a single line can do it
If No Header
ActiveSheet.Range($A$1:$A$23).RemoveDuplicates Columns:=1, Header:=xlNo
If Header
ActiveSheet.Range($A$1:$A$23).RemoveDuplicates Columns:=1, Header:=xlYes
Regards,
Lalit Mohan
On Thursday, 10 January 2013
Hi Kasper,
Dear instead of giving solution i just want to give the idea required to
accomplish your task.just follow the below mentioned steps and it help you
to do it from your own.
1:Select the columns of employee name .
2:click : Data Tab
3: Spot the option : Remove duplicate
4: it will ask