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
- 3114 reads
Recent comments
6 years 7 weeks ago
6 years 45 weeks ago
7 years 5 weeks ago
7 years 8 weeks ago
7 years 9 weeks ago
7 years 14 weeks ago
7 years 22 weeks ago
7 years 23 weeks ago
7 years 23 weeks ago
7 years 23 weeks ago