Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выборка значений из списка по признаку - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выборка значений из списка по признаку (Формулы/Formulas)
Выборка значений из списка по признаку
Silver777 Дата: Пятница, 23.08.2019, 17:19 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день ,помогите пожалуйста сделать формулу для выборки значений из списка по признаку похожести. Во вложении пример и ниже таблица для решения. Желтым - те ячейки которые нужно заполнить с помощью формулы. Спасибо!
К сообщению приложен файл: 6040571.xlsx(9.3 Kb)
 
Ответить
СообщениеДобрый день ,помогите пожалуйста сделать формулу для выборки значений из списка по признаку похожести. Во вложении пример и ниже таблица для решения. Желтым - те ячейки которые нужно заполнить с помощью формулы. Спасибо!

Автор - Silver777
Дата добавления - 23.08.2019 в 17:19
krosav4ig Дата: Пятница, 23.08.2019, 22:22 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2164
Репутация: 905 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте
UDF [vba]
Код
Function Похожие$()
    Dim r As Range, r1 As Range, s$
    Set r = Application.Caller
    Select Case True
        Case IsEmpty(r(1, 0)) And Not IsEmpty(r(2, 0))
            Set r1 = r.Parent.Range(r(1, -1), IIf(IsEmpty(r(3, 0)), r(2, 0), r(2, 0).End(xlDown)(1, 0)))
            Похожие = Join(Filter(Application.Transpose(r1), r(1, -1), 0), ";")
        Case Not IsEmpty(r(1, 0))
            s = IIf(IsEmpty(r(2, 0)), ";", "")
            Похожие = r(0, -1) & ";" & Replace(r(0, 1) & s, s & r(1, -1) & ";", "")
    End Select
End Function
[/vba]
К сообщению приложен файл: 6040571.xlsm(17.6 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте
UDF [vba]
Код
Function Похожие$()
    Dim r As Range, r1 As Range, s$
    Set r = Application.Caller
    Select Case True
        Case IsEmpty(r(1, 0)) And Not IsEmpty(r(2, 0))
            Set r1 = r.Parent.Range(r(1, -1), IIf(IsEmpty(r(3, 0)), r(2, 0), r(2, 0).End(xlDown)(1, 0)))
            Похожие = Join(Filter(Application.Transpose(r1), r(1, -1), 0), ";")
        Case Not IsEmpty(r(1, 0))
            s = IIf(IsEmpty(r(2, 0)), ";", "")
            Похожие = r(0, -1) & ";" & Replace(r(0, 1) & s, s & r(1, -1) & ";", "")
    End Select
End Function
[/vba]

Автор - krosav4ig
Дата добавления - 23.08.2019 в 22:22
Silver777 Дата: Суббота, 24.08.2019, 19:08 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
krosav4ig, Отлично!!! все работает!!! Спасибо!!!
 
Ответить
Сообщениеkrosav4ig, Отлично!!! все работает!!! Спасибо!!!

Автор - Silver777
Дата добавления - 24.08.2019 в 19:08
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выборка значений из списка по признаку (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!