Объединение содержимого ячейки в одном столбце с использованием логики из другого столбца

вы можете сделать этот шаг преобразования с бесплатной Microsoft Власти Запрос надстройки.

Это не VBA, но в этом случае есть некоторые шаги для кода, помимо использования пользовательского интерфейса.

Таблица "Dataset" - > вывод данных из Power Query

1. определите набор данных как таблицу (я называю его "Dataset" в следующем скрипте)
2. на запрос Ленты Power, импортировать таблицы в пользовательском интерфейсе ("от Table")
3. поместите скрипт ниже в расширенный редактор (вид ленты - > расширенный редактор)

вот код:

let
    Source = Excel.CurrentWorkbook(){[Name="Dataset"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Name", type text}, {"Sales order number", Int64.Type}}),
    #"Merged Queries" = Table.NestedJoin(#"Changed Type",{"Sales order number"},#"Changed Type",{"Sales order number"},"NewColumn",JoinKind.LeftOuter),

    // Function for Merging the matching rows
    List_MatchingRows=(Table, Column) =>
        let 
            ColumnToMerge = Table.SelectColumns(Table, Column),
            ListMatch = Table.ToList(ColumnToMerge),
            SingleLine = Text.TrimEnd(Text.TrimEnd(Lines.ToText(ListMatch, ", ")," "),",")
        in
            SingleLine,


    #"Added Custom" = Table.AddColumn(#"Merged Queries", "Sold by", each List_MatchingRows([NewColumn],"Name")),
    #"Removed Columns" = Table.RemoveColumns(#"Added Custom",{"NewColumn"})

in
    #"Removed Columns"