XLA routines: EE_GetUnique
EE_GetUnique returns the unique items in an array
Function EE_GetUnique(arrDupes As Variant) As Variant Dim objDict As Object Dim intLoop As Long 'http://excelexperts.com/xla-routines-eeGetUnique for updates on this function Set objDict = CreateObject("Scripting.Dictionary") For intLoop = LBound(arrDupes, 1) To UBound(arrDupes, 1) objDict(arrDupes(intLoop, 1)) = 1 Next intLoop EE_GetUnique = Application.Transpose(WorksheetFunction.Transpose(objDict.Keys)) Set objDict = Nothing End Function
»
- Nick's blog
- Login or register to post comments
- 2915 reads
Recent comments
5 years 27 weeks ago
6 years 13 weeks ago
6 years 25 weeks ago
6 years 28 weeks ago
6 years 29 weeks ago
6 years 34 weeks ago
6 years 43 weeks ago
6 years 43 weeks ago
6 years 43 weeks ago
6 years 43 weeks ago