Power Query / Power BI / M function for mass values replacement in a table column (List version)

Table.MassReplaceValues.pq

// fnMassReplace
(
    Source as table, // table to make replacements in
    ToReplace as text, // name of the column for replacements
    ReplaceWhat as list, // list (or column reference) with "what to replace" values
    ReplaceWith as list // list (or column reference) with "replace with" values
) as table =>

let
    CurrentColumns = List.Buffer(Table.ColumnNames(Source)),
    CurrentType = Value.Type(Source),
    MatchReplace = List.ReplaceMatchingItems(Table.Column(Source,ToReplace), List.Zip({ReplaceWhat, ReplaceWith})),
    NewTab = Table.RemoveColumns(Source, {ToReplace}),
    NewColumnsList = List.RemoveMatchingItems(CurrentColumns, {ToReplace}),
    AddColumn = Table.ToColumns(NewTab) & {MatchReplace},
    Collected = Table.FromColumns(AddColumn, NewColumnsList & {ToReplace}),
    Ordered = Table.ReorderColumns(Collected, CurrentColumns),
    Typed = Value.ReplaceType(Ordered, CurrentType)
in
    Typed