Николай, а не проще ли на словарях сделать? при большом количестве уникальных данных InStr и конкатенация будет сильно тормозить, да и Transpose с массивами более чем в 65536 элементов не работает, а у тебя массив определяется не по количеству уникальных, а по количеству исходных данных, при этом т.к. используется IIf, Transpose выполняется в любом случае.

вот так должно быстрее работать
Public Function GetDistinct(rng As Range, Optional Trnsp As Boolean = True) As Variant()
Dim v
With CreateObject("Scripting.Dictionary")
For Each v In Intersect(rng, rng.Worksheet.UsedRange).Value
If Len(v) Then .Item(v) = 0
Next v
If Trnsp Then GetDistinct = WorksheetFunction.Transpose(.keys) Else GetDistinct = .keys
End With
End Function

   Насчет Transpose согласен. Но УДФ все же не используют для слишком больших диапазонов; если данных сотни тысяч строк, то любая функция будет тормозить.
По поводу InStr и & - не такие уж они и медленные.
а словари просто надоели

   добрый День! Николай, у меня почему-то не работает на 300 000 строк.Не подскажите почему? Комп просто висит...

   Немного запоздало, но все же... )
На 300 000 строк нужны другие подходы.