Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Нахождение и извлечение всех номеров согласно заданной должности
 
#1
30.03.2021 15:30:43
Добрый день

Есть вопрос нашёл формулу для впр всех значений по ссылке https://www.planetaexcel.ru/techniques/2/81/ но в моё случае она не работает ((либо я криворукий (то что криворукий инфа сотка мама так говорит)

нужно чтоб возвращал все номера но получается только половину.

Если есть решение напишите пожалуйста!
Огромное спасибо!
 
 
 
#2
30.03.2021 15:53:56
Код
=ИНДЕКС(B$4:B$18;НАИБОЛЬШИЙ(ЕСЛИ(A$4:A$18=D4;СТРОКА(A$4:A$18)-3);СЧЁТЕСЛИ(D$4:D4;D4)))
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#3
30.03.2021 15:54:23
KirillK,
Код
=ЕСЛИОШИБКА(ИНДЕКС($B$4:$B$18;НАИМЕНЬШИЙ(ЕСЛИ($D4=$A$4:$A$18;СТРОКА($B$4:$B$18)-3;"");СЧЁТЕСЛИ($D$3:$D4;$D4)));"")
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#4
30.03.2021 16:09:30
vikttur, Тема: Нахождение и извлечение всех номеров согласно заданной должности
и еще вариант
=ЕСЛИОШИБКА(ИНДЕКС($B$4:$B$18;АГРЕГАТ(15;6;СТРОКА($B$1:$B$18)/($D4=$A$4:$A$18);СЧЁТЕСЛИ($D$3:$D4;$D4)));"")
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#5
30.03.2021 16:13:25
Код
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
 
 
 
#6
31.03.2021 15:06:59
Всем спасибо! Всё воркает!!!!
 
 
 
Страницы: 1
Наверх