Есть вопрос нашёл формулу для впр всех значений по ссылке https://www.planetaexcel.ru/techniques/2/81/ но в моё случае она не работает ((либо я криворукий (то что криворукий инфа сотка мама так говорит)
нужно чтоб возвращал все номера но получается только половину.
Если есть решение напишите пожалуйста! Огромное спасибо!
vikttur, Тема: Нахождение и извлечение всех номеров согласно заданной должности и еще вариант =ЕСЛИОШИБКА(ИНДЕКС($B$4:$B$18;АГРЕГАТ(15;6;СТРОКА($B$1:$B$18)/($D4=$A$4:$A$18);СЧЁТЕСЛИ($D$3:$D4;$D4)));"")
Sub test()
Dim arr
Dim dic As Object
Dim i As Long
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("F1:F" & iLastRow).ClearContents
Set dic = CreateObject("Scripting.Dictionary"): dic.comparemode = 1
arr = Range("A4:B" & iLastRow).Value
For i = 1 To UBound(arr)
dic.Item(arr(i, 1)) = dic.Item(arr(i, 1)) & arr(i, 2) & ","
Next i
Range("F4").Resize(dic.Count, 2) = Application.Transpose(Array(dic.keys, dic.Items))
End Sub