let
    MergeNestedTableFields = (table as table, nestedTableField as text, fieldNames as list, optional delimiter as nullable text) as table =>
    let
        // Если delimiter не передан, использовать разрыв строки
        delimiterValue = if delimiter = null then "#(lf)" else delimiter,
        
        // Функция для приведения поля к тексту, если оно не является текстом
        ConvertToText = (value) =>
            if Value.Is(value, type text) then value else Text.From(value),
        
        // Добавление объединенных полей
        AddMergedColumns = List.Accumulate(fieldNames, table, (currentTable, fieldName) =>
            Table.AddColumn(
                currentTable,
                fieldName,
                each Text.Combine(List.Transform(Table.Column(Record.Field(_, nestedTableField), fieldName), ConvertToText), delimiterValue),
                type text
            )
        )
    in
        AddMergedColumns
in
    MergeNestedTableFields

let
    // Определяем функцию
    CombineNestedFields = (InputTable as table, NestedColumnName as text, FieldNames as list) as table =>
    let
        // Разворачиваем вложенную таблицу
        ExpandedTable = Table.ExpandTableColumn(InputTable, NestedColumnName, FieldNames),
        
        // Объединяем строки из каждого указанного поля
        CombinedColumns = List.Transform(FieldNames, (fieldName) =>
            Table.AddColumn(ExpandedTable, "Combined_" & fieldName, each Text.Combine(Record.FieldValues(_, fieldName), ", "), type text)
        ),
        
        // Убираем дубликаты и оставляем только нужные столбцы
        FinalTable = List.Accumulate(CombinedColumns, InputTable, (state, current) => Table.RemoveColumns(state, FieldNames))
    in
        FinalTable
in
    CombineNestedFields

let
    Source = ... , // ваш источник данных
    Result = CombineNestedFields(Source, "Табл", {"Поле1", "Поле2"}) // замените на имя вашего столбца с вложенной таблицей и нужные поля
in
    Result

Public Function ReplaceReg(text As String, pattern As String, text_replace As String, Optional instance_num As Integer = 0, Optional match_case As Boolean = True, Optional registr As Boolean = True) As String    Dim text_result, text_find As String, regex As Object, matches As Variant
    Dim matches_index, pos_start As Integer
     On Error GoTo ErrHandle
    text_result = text
    Set regex = CreateObject("VBScript.RegExp")
     regex.pattern = pattern
    regex.Global = True
    regex.MultiLine = True
     If True = match_case Then
        regex.IgnoreCase = False
    Else
        regex.IgnoreCase = True
    End If
     Set matches = regex.Execute(text)
     If 0 < matches.Count Then
        If (0 = instance_num) Then
            text_result = regex.Replace(text, text_replace)
        Else
            If instance_num <= matches.Count Then
                pos_start = 1
                For matches_index = 0 To instance_num - 2
                    pos_start = InStr(pos_start, text, matches.Item(matches_index), vbBinaryCompare) + Len(matches.Item(matches_index))
                Next matches_index
                 text_find = matches.Item(instance_num - 1)
              If registr = True Then
                text_result = Left(text, pos_start - 1) & Replace(text, text_find, LCase(text_replace), pos_start, 1, vbBinaryCompare)
              Else
                text_result = Left(text, pos_start - 1) & Replace(text, text_find, text_replace, pos_start, 1, vbBinaryCompare)
              End If
            End If
        End If
    End If
     ReplaceReg = text_result
    Exit Function
 ErrHandle:
    ReplaceReg = CVErr(xlErrValue)
End Function

let
    Источник = Access.Database(File.Contents("C:\Users\a.kontar\Desktop\Прототип БД лицензий.accdb"), [CreateNavigationProperties=true]),
    _Лицензии = Источник{[Schema="",Item="Лицензии"]}[Data]
in
    _Лицензии