ASHIS
1/3/2015 - 11:21 AM

Add all the cell values in the column 'A' into the Array 'ArrV'!

Add all the cell values in the column 'A' into the Array 'ArrV'!

UniqueArray.vbs
content_copyfile_download
ArrV = Application.Transpose(Range([a1], Cells(Rows.Count, "A").End(xlUp))) 'Stores all the value in the column 'A' of Sheet 'COUNTRY' to the Array 'ArrV'!
    For I = LBound(ArrV) To UBound(ArrV)    'Uses 'Scripting Dictionary' object to store only unique value!
        ScrDIC(ArrV(I)) = 1
    Next
ArrV = ScrDIC.Keys  'Dumps the Unique values from 'Scripting Dictionary' object into the Array.