let
    replacerToSpace = (sentence) => List.Accumulate(Text.ToList("/.,;"), sentence, (acc, next) => Text.Replace(acc, next, " ")),
    filterTable = Table.FromColumns({{"регион", "всего", "тип", "бе"}}, {"id"}),
    Source = Excel.CurrentWorkbook(){[Name="СИМ"]}[Content],
    colNames = Table.ColumnNames(Source),
    clearColNames = List.Transform(colNames, each replacerToSpace(Text.Lower(_))),
    toTable = Table.FromColumns({colNames, clearColNames}),
    toSingleWord = Table.ExpandListColumn(Table.TransformColumns(toTable, {"Column2", each Text.Split(_, " ")}), "Column2"),
    filter = Table.Join(toSingleWord, {"Column2"}, filterTable, {"id"}),
    result = Table.SelectColumns(Source, List.Distinct(filter[Column1]))
in
    result