[URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35  36  37  38  39  40  41      Sub   main()    Dim   arr, i, res, tmp, lr   As   Long    arr = Application.Transpose(Application.Transpose([A2:K2]))    arr = generate_arr(arr)    res = permutations(arr)    lr = 5    For   Each   i   In   res          tmp = Split(i,   ":"  )          [A1:K1].Copy Cells(lr - 1, 1)   ' закомментировать, если не нужно копировать шапку (1...11)          Cells(lr, 1).Resize(1, UBound(tmp) + 1) = tmp          lr = lr + 3    Next   i    End   Sub    Function   permutations(arr)   As   Variant    Dim   i, res(), k    k = 1    ReDim   Preserve   res(1   To   k)    res(k) = Join(arr,   ": "  )    k = k + 1    For   i = 2   To   UBound(arr)          arr = swap(arr, i, i - 1)          ReDim   Preserve   res(1   To   k)          res(k) = Join(arr,   ": "  )          k = k + 1    Next   i    permutations = res    End   Function    Private   Function   swap(arr, a, b)   As   Variant    Dim   s    s = arr(a)    arr(a) = arr(b)    arr(b) = s    swap = arr    End   Function    Private   Function   generate_arr(arr)   As   Variant    Dim   i    For   i = LBound(arr)   To   UBound(arr)          If   IsEmpty(arr(i))   Then   arr(i) =   ""    Next   i    generate_arr = arr    End   Function   

    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19      let          lst = {{  "А"  ,   "Б"  ,   "В"  ,   "Г"  }, {1, 2, 3}, {  " "  }},          combo =               List.Accumulate(                  List.Positions(lst),                   1,                  (s, c) => s * List.Count(lst{c})              ),          nums = List.Numbers(1, combo),          col00 = List.Transform(nums, each lst{0}{Number.  Mod  (_, List.Count(lst{0}))}),          col01 = List.Transform(nums, each lst{1}{Number.  Mod  (_, List.Count(lst{1}))}),          col02 = List.Transform(nums, each lst{2}{Number.  Mod  (_, List.Count(lst{2}))}),          res01 = List.Combine({col00, col00, col01, col01, col02, col02}),          res02 = List.Combine({col01, col02, col00, col02, col00, col01}),          res03 = List.Combine({col02, col01, col02, col00, col01, col00}),          tbl = Table.FromColumns({res01, res02, res03}, {  "01"  ,   "02"  ,   "03"  })       in          tbl