Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вывод значений дипазона умной таблицы в ячейку, Вывод значений дипазона умной таблицы в заданную ячейку через запятую с условием
 
#1
15.08.2022 18:25:28
Дорогие форумчане, необходима ваша помощь. За любые наводки благодарю заранее ;)

Задача: необходимо чтобы значения из заданного диапазона (Столбец - Результат), выводились в одну ячейку через запятую, но кроме значений (Замечаний нет). Итог примерно должен выглядеть так: ="Документы не предоставлены: "& Таня - 230 т., Степь - 50 т.&" ." // Я бы мог конечно всё через Амперсанд объединить, но если сортов будет не 5,а 10 или 30 и больше, хотелось чтоб формула это учитывала.


Прикрепляю картинку и сам файл.
 
 
 
#2
15.08.2022 20:07:45
Код
="Документы не предоставлены: " & ПОДСТАВИТЬ(ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(",";1;Таблица5[Результат]);"Замечаний нет,";"");",Замечаний нет";"")
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
16.08.2022 10:43:16
Ігор Гончаренко, очень признателен вам за отклик. А реализуемо ли это формула для офиса 13 года? Формула "объединить" для версий с 19  :( (Формула, предложенная вами, работает отлично)  
Изменено: Max_E - 16.08.2022 11:30:26
 
 
 
#4
18.08.2022 12:03:27
Всё таки есть на просторах интернета решение. Т.к. функция Объеденить для экселя 19, нашёл аналогичный макрос для версий ниже.
Код
Public Function СЦЕПИТЬДИАПАЗОН(ByRef ДИАПАЗОН As Excel.Range, Optional ByVal РАЗДЕЛИТЕЛЬ As String = "") As String
 
    Dim rCell As Range
    Dim MergeText As String
 
    For Each rCell In ДИАПАЗОН
        If rCell.Text <> "" Then
            MergeText = MergeText & РАЗДЕЛИТЕЛЬ & rCell.Text
        End If
    Next
 
    MergeText = Mid(MergeText, Len(РАЗДЕЛИТЕЛЬ) + 1)
    СЦЕПИТЬДИАПАЗОН = MergeText
End Function
 
 
 
#5
18.08.2022 12:16:39
Max_E, вот гораздо более универсальная и быстрая — КАК СЦЕПИТЬ НЕСКОЛЬКО ЗНАЧЕНИЙ В ОДНУ ЯЧЕЙКУ ПО КРИТЕРИЮ? СЦЕПИТЬЕСЛИ
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#6
18.08.2022 12:58:44
Jack Famous, макрос из этой статьи удобнее и сокращает формулу в несколько раз. Это то что мне было нужно :) Благодарю!
 
 
 
#7
18.08.2022 13:44:59
Max_E, пожалуйста)
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
Страницы: 1
Наверх