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

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

.Cells(iRow, 4).FormulaLocal = "=FIO(""" & BaseForm.tb_Familia.Value & """;""Р"")"
.Cells(iRow, 4).Value = .Cells(iRow, 4).Value
.Cells(iRow, 5).FormulaLocal = "=FIO(""" & BaseForm.tb_Familia.Value & """; ;1)"
.Cells(iRow, 5).Value = .Cells(iRow, 5).Value

Sub Копирование()
Dim wd As String
Dim iLastRow As Integer
wd = ActiveWorkbook.Path
With Application
   .ScreenUpdating = False          
   .Calculation = xlCalculationManual 
   .DisplayAlerts = False       
    End With
Workbooks.Open Filename:=wd & "\БД.xlsm"
With Windows("БД.xlsm"  )
.Worksheets("Основной" )   .Activate
.iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
.Range("b3:b" & iLastRow).Select
.Selection.Copy
End With
Windows("Книга1.xlsm" ) .Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("БД.xlsm" ) .Close
With Application
   .ScreenUpdating = True          
   .Calculation = xlCalculationAutomatic  
   .DisplayAlerts = True      
    End With
End Sub