Есть макрос приведённый ниже для создания списка уникальных значений но он выдает ошибку #перенос подскажите что нужно исправить.
Function UniqueList(rng As Range) As Variant
Dim dict As Object
Dim cell As Range
Dim arr() As Variant
Dim i As Long
Set dict = CreateObject("Scripting.Dictionary")
For Each cell In rng
dict(cell.Value) = 1
Next cell
ReDim arr(1 To dict.Count, 1 To 1)
i = 1
For Each Key In dict.Keys
arr(i, 1) = Key
i = i + 1
Next Key
UniqueList = arr
End Function
Function UniqueList(rng As Range) As Variant
Dim dict As Object
Dim cell As Range
Dim arr() As Variant
Dim i As Long
Set dict = CreateObject("Scripting.Dictionary")
For Each cell In rng
dict(cell.Value) = 1
Next cell
ReDim arr(1 To dict.Count, 1 To 1)
i = 1
For Each Key In dict.Keys
arr(i, 1) = Key
i = i + 1
Next Key
UniqueList = arr
End Function