6

Давайте предположим, что у меня есть 3 столбца с метками

  1. ABCD
  2. ABCDE
  3. 1 2 3 4 5 6 7 8 9 10

Есть ли быстрый и простой способ создать пустую таблицу со всеми перестановками? т.е.

  • А - А - 1
  • А - а - 2
  • ....
  • Д - е - 10

2 ответа2

6

Вы можете сделать это с помощью формулы:

=IFERROR(INDEX($A$1:$A$4,INT((ROW(1:1)-1)/((COUNTA(B:B)*(COUNTA(C:C)))))+1)&" - "&INDEX(B:B,MOD(INT((ROW(1:1)-1)/COUNTA(C:C)),COUNTA(B:B))+1)&" - "&INDEX(C:C,MOD((ROW(1:1)-1),COUNTA(C:C))+1),"")

3

Запуск этого короткого макроса:

Sub marine()
    Dim i As Long, j As Long, k As Long, N As Long

    N = 1
    For i = 1 To 4
        For j = 1 To 5
            For k = 1 To 10
                Cells(N, 4) = Cells(i, 1) & "-" & Cells(j, 2) & "-" & Cells(k, 3)
                N = N + 1
            Next k
        Next j
    Next i
End Sub

выдаст столбец с желаемыми 200 комбинациями:

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .