Поиск информации и перенос ее в строку

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск информации и перенос ее в строку (Формулы/Formulas)

sosninkosty336

Дата: Понедельник, 24.10.2022, 12:00 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 60% ±

Здравствуйте! Подскажите как сделать поиск определенных значений и перенос их в строку и одну ячейку по одному критерию

К сообщению приложен файл: 0330843.xlsx (11.8 Kb)

Ответить

jakim

Дата: Понедельник, 24.10.2022, 14:11 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1199

Репутация: 313 ±

Замечаний: 0% ±

Excel 2010

Power Query

[vba]

Код

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Merged Columns" = Table.CombineColumns(Source,{"Путь", "Column1"},Combiner.CombineTextByDelimiter(", ", QuoteStyle.None),"Merged"),
    #"Merged Columns1" = Table.CombineColumns(#"Merged Columns",{"Column2", "Column3"},Combiner.CombineTextByDelimiter(", ", QuoteStyle.None),"Merged.1"),
    #"Merged Columns2" = Table.CombineColumns(#"Merged Columns1",{"Merged", "Merged.1"},Combiner.CombineTextByDelimiter("-", QuoteStyle.None),"Merged.2"),
    #"Changed Type1" = Table.TransformColumnTypes(#"Merged Columns2",{{"Время выезда", type date}, {"Время прибытия", type date}}),
    #"Grouped Rows" = Table.Group(#"Changed Type1", {"Авто", "Merged.2"}, {{"min", each List.Min([Время выезда]), type date}, {"max", each List.Max([Время прибытия]), type date}}),
    #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each [max]-[min]),
    #"Changed Type" = Table.TransformColumnTypes(#"Added Custom",{{"Custom", Int64.Type}}),
    #"Merged Columns3" = Table.CombineColumns(Table.TransformColumnTypes(#"Changed Type", {{"min", type text}, {"max", type text}}, "lt-LT"),{"min", "max"},Combiner.CombineTextByDelimiter("-", QuoteStyle.None),"Merged"),
    #"Added Prefix" = Table.TransformColumns(#"Merged Columns3", {{"Merged", each "(" & _, type text}}),
    #"Added Suffix" = Table.TransformColumns(#"Added Prefix", {{"Merged", each _ & ")", type text}}),
    #"Merged Columns4" = Table.CombineColumns(#"Added Suffix",{"Merged.2", "Merged"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None),"Merged.1"),
    #"Renamed Columns" = Table.RenameColumns(#"Merged Columns4",{{"Custom", "Кол. Дней"}, {"Merged.1", "Путь"}})
in
    #"Renamed Columns"

[/vba]