let
    Источник = Excel.CurrentWorkbook(),
    #"Строки с примененным фильтром" = Table.SelectRows(Источник, each Text.Contains([Name], "Табл")),
    t1=#"Строки с примененным фильтром"{1}[Content]&#"Строки с примененным фильтром"{2}[Content],
    t2 = Table.AddIndexColumn(Источник{0}[Content],"Index",1,1),
    #"Разделить столбец по разделителю" = Table.ExpandListColumn(Table.TransformColumns(t2, {{"Столбец2", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "Столбец2"),
    transform_t2 = Table.TransformColumns(#"Разделить столбец по разделителю", {"Столбец2", each
        Table.ExpandTableColumn(Table.NestedJoin(
            Table.Transpose(Table.FromList(List.Transform(Text.Split(_, ":"), each Text.Trim(_)), Splitter.SplitByNothing(), null, null, ExtraValues.Error)),{"Column2"},t1,{"from"},"1",JoinKind.LeftOuter), "1", {"to"}, {"to"})}),
    #"Развернутый элемент Столбец2" = Table.ExpandTableColumn(transform_t2, "Столбец2", {"Column1", "Column2", "to"}, {"Column1", "Column2", "to"}),
    #"Условный столбец добавлен" = Table.AddColumn(#"Развернутый элемент Столбец2", "Пользовательская", each if [to] = null then [Column1] & ": " &[Column2] else [Column1]& ": " &[to]),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Условный столбец добавлен",{"Column1", "Column2", "to"}),
    #"Сгруппированные строки" = Table.Group(#"Удаленные столбцы", {"Столбец1", "Index"}, {{"Групп", each Text.Combine(_[Пользовательская], ", "), type text}}),
    #"Удаленные столбцы1" = Table.RemoveColumns(#"Сгруппированные строки",{"Index"})
in
    #"Удаленные столбцы1"

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content],
    pairs = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content] & Excel.CurrentWorkbook(){[Name="Таблица3"]}[Content],
    mainIds = Table.AddIndexColumn(Source, "mainId"),
    toList = Table.TransformColumns(mainIds, {"Столбец2", (item) =>
    let
        keyVals = Text.Split(item, ","),
        words = List.Combine(List.Transform(keyVals, each Text.Split(_, ":"))),
        toTable = Table.FromColumns({List.Transform(words, each Text.Trim(_))}, {"word"})
    in
        Table.AddIndexColumn(toTable, "localId")
    }),
    main = Table.ExpandTableColumn(toList, "Столбец2", {"word", "localId"}, {"word", "localId"}),
    translate = Table.Join(main, "word", pairs, "from", JoinKind.LeftOuter),
    newSet = Table.AddColumn(translate, "temp", each if [to] = null then [word] else [to]),
    translated = Table.Group(newSet, {"mainId"}, {
        {"Столбец1", each _[Столбец1]{0}},
        {"Столбец2", (sub) =>
        let
            restoreOrder = Table.Sort(sub, {"localId", Order.Ascending}),
            parts1 = List.Split(restoreOrder[temp], 2),
            keyVals = List.Transform(parts1, each Text.Combine(_, ": "))
        in
            Text.Combine(keyVals, ", "),
       Text.Type
        }
    }),
    #"Sorted Rows" = Table.Sort(translated,{{"mainId", Order.Ascending}}),
    #"Removed Columns" = Table.RemoveColumns(#"Sorted Rows",{"mainId"})
in
    #"Removed Columns"

let
    table_1 = Csv.Document(File.Contents("C:\Desktop\Power Query\1_table.csv"),[Delimiter=";", Columns=2, Encoding=1251, QuoteStyle=QuoteStyle.None]),
    table_2    = Csv.Document(File.Contents("C:\Desktop\Power Query\2_table.csv"),[Delimiter=";", Columns=2, Encoding=1251, QuoteStyle=QuoteStyle.None]),
    Source = Csv.Document(File.Contents("C:\Desktop\Power Query\Data.csv"),[Delimiter=";", Columns=2, Encoding=1251, QuoteStyle=QuoteStyle.None]),
    Source_trans = Table.TransformColumnTypes(Source,{{"Column1", Int64.Type}, {"Column2", type text}}),
    Source_name = Table.RenameColumns(Source_trans,{{"Column2", "Столбец2"}}),
    Translations = Table.Buffer(Table.Combine(List.Transform({"table_1","table_2"},each Table.Skip(Table.DemoteHeaders(Excel.CurrentWorkbook(){[Name=_]}[Content]),1)))),
    Replace = Table.ReplaceValue(Table.ReplaceValue(Source_name,",","""))},{t(""",Replacer.ReplaceText,{"Столбец2"}),":","""),fn(t(""",Replacer.ReplaceText,{"Столбец2"}),
    Evaluate = Table.TransformColumns(Replace,{{"Столбец2",each Table.FromRows(Expression.Evaluate("{{t("""&_&"""))}}",[t=Text.Trim,fn=(v)=>try Translations{[Column1=v]}[Column2] otherwise v]))}}),
    Custom1 = Table.TransformColumns(Evaluate,{{"Столбец2", each Combiner.CombineTextByDelimiter(", ")(Table.ToList(_,Combiner.CombineTextByDelimiter(": ")))}})
in
    Custom1