Есть необходимость копирования текста из нескольких ячеек в одну по критерию, но так, чтобы текст каждой ячейки шел через запятую. Пример:
То есть, если напротив ячейки в столбце А стоит 1 в столбце B, то она попадает в ячейку F17 и так далее. Таким образом, я ожидаю увидеть в F17 следующее содержание: "Киви, Манго, Дуриан" в F18: "Малина, Клубника, Ирга" в F19: "Огурец, Редис, Картофель, Тыква"
Подскажите чайнику как это реализовать? Спасибо! Файл в приложении.
Добрый день! С наступившими праздниками, друзья!
Есть необходимость копирования текста из нескольких ячеек в одну по критерию, но так, чтобы текст каждой ячейки шел через запятую. Пример:
То есть, если напротив ячейки в столбце А стоит 1 в столбце B, то она попадает в ячейку F17 и так далее. Таким образом, я ожидаю увидеть в F17 следующее содержание: "Киви, Манго, Дуриан" в F18: "Малина, Клубника, Ирга" в F19: "Огурец, Редис, Картофель, Тыква"
Подскажите чайнику как это реализовать? Спасибо! Файл в приложении.AZaytsev
AZaytsev, добрый день. вариант на Power Query. Исходный диапазон преобразован в таблицу, при добавлении строк и столбцов в исходную таблицу нужно только обновить таблицу-результат. Подсчет количества по виду также можно сделать в результирующей таблице
AZaytsev, добрый день. вариант на Power Query. Исходный диапазон преобразован в таблицу, при добавлении строк и столбцов в исходную таблицу нужно только обновить таблицу-результат. Подсчет количества по виду также можно сделать в результирующей таблицеKostya_Ye
К сообщению приложен файл: 7301621_1.xlsm(20.5 Kb)
Спасибо огромное! На маке почему-то не захотело работать, но на виндоус все прекрасно. Очень круто, что есть такое коммьюнити неравнодушных любителей экселя)
К сообщению приложен файл: 7301621_1.xlsm(20.5 Kb)
Спасибо огромное! На маке почему-то не захотело работать, но на виндоус все прекрасно. Очень круто, что есть такое коммьюнити неравнодушных любителей экселя)AZaytsev
Pelena, Лен, думаю это про UDF было. а там VBScript.RegExp, а он вроде на яблоке не должно работать, также как и словари.
Попробуйте на маке так, крошечная UDF [vba]
Код
Function TextJoin(ByRef ArrText As Variant, Optional ByRef Delim As String = ",") As String For Each TextElem In ArrText TextJoin = TextJoin & Delim & TextElem Next TextJoin = Mid(TextJoin, Len(Delim) + 1) End Function
Pelena, Лен, думаю это про UDF было. а там VBScript.RegExp, а он вроде на яблоке не должно работать, также как и словари.
Попробуйте на маке так, крошечная UDF [vba]
Код
Function TextJoin(ByRef ArrText As Variant, Optional ByRef Delim As String = ",") As String For Each TextElem In ArrText TextJoin = TextJoin & Delim & TextElem Next TextJoin = Mid(TextJoin, Len(Delim) + 1) End Function