VBA for Removing Duplicates and Sorting Excel Columns

[ANONYMOUS123456]

Hello EveryOne,
I have three excel columns for A,B and C. The Data in all of three columns is dynamic which updates on basis of formulas in these columns. The data in column A is "number formating".

1) First I want to all of the data should be pasted as values in D,E and F columns.
2) I want the duplicates should be removed on bases of simultaneous D,E and F columns.
3) All the data in D,E and F columns should be sorted on basis of data values in column D (which was pasted from column A numeric data) in descending order.

Is there any way out to solve this problem ?

Regards,

 

[MickG]

Try:-

[COLOR="Navy"]Sub[/COLOR] MG26Dec00
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Txt [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Dic [COLOR="Navy"]As[/COLOR] Object
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
[COLOR="Navy"]Set[/COLOR] Dic = CreateObject("scripting.dictionary")
Dic.CompareMode = vbTextCompare
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    Txt = Dn.Value & Dn.Offset(, 1).Value & Dn.Offset(, 2).Value
        [COLOR="Navy"]If[/COLOR] Not Dic.Exists(Txt) [COLOR="Navy"]Then[/COLOR]
            Dic.Add Txt, Array(Dn.Value, Dn.Offset(, 1).Value, Dn.Offset(, 2).Value)
        [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR]
[COLOR="Navy"]With[/COLOR] Range("D1").Resize(Dic.Count, 3)
        .Value = Application.Transpose(Application.Transpose(Dic.items))
        .Sort key1:=[D1], order1:=xlDescending
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick