Function ВЫВОД_УНИКАЛЬНЫХ(Диапазон As Range, Номер_результата As Integer) 'возвращает N-ное из уникальных

Question

Function ВЫВОД_УНИКАЛЬНЫХ(Диапазон As Range, Номер_результата As Integer) 'возвращает N-ное из уникальных

значений в указанном диапазоне
Dim iArr, arr(): arr = Intersect(Диапазон, Диапазон.Parent.UsedRange.Cells.SpecialCells(xlCellTypeVisible)).Value
With CreateObject("Scripting.Dictionary")
.comparemode = vbTextCompare ' Создаем словарь
For Each iArr In arr
If Trim(iArr) <> "" Then iArr = .Item(Trim(iArr)) 'попытка чтения значения по отсутствующему ключу добавит ключ в словарь ( см., например, http://program.rin.ru/cgi-bin/print.pl?id=120#17 )
Next
arr = .Keys ' массив ключей копируем в массив (напрямую читать из .Keys не получается, т.к. словарь определён не явно)
If Номер_результата >= 1 And Номер_результата <= .Count Then
ВЫВОД_УНИКАЛЬНЫХ = arr(Номер_результата - 1)
Else
ВЫВОД_УНИКАЛЬНЫХ = CVErr(xlErrNA)
End If
End With
End Function

0

05.05.2023

1 ответов

31 просмотр

Abdulquddus · Accepted Answer

Abdulquddus

Это я

0

05.05.2023

Похожие чаты

Function ВЫВОД_УНИКАЛЬНЫХ(Диапазон As Range, Номер_результата As Integer) 'возвращает N-ное из уникальных

1 ответов

Похожие вопросы