Jak wygenerować wszystkie kombinacje 3 lub wielu kolumn w programie Excel?

Załóżmy, że mam 3 kolumny danych i chcę wygenerować lub wyświetlić wszystkie kombinacje danych w tych 3 kolumnach, jak pokazano na poniższym zrzucie ekranu. Czy masz jakieś dobre metody rozwiązania tego zadania w programie Excel?

Wygeneruj wszystkie kombinacje na podstawie 3 kolumn danych przy użyciu formuły

Generuj wszystkie kombinacje na podstawie 3 lub wielu kolumn danych przy użyciu kodu VBA

Generuj wszystkie kombinacje na podstawie 3 lub wielu kolumn danych, korzystając z niesamowitej funkcji

Wygeneruj wszystkie kombinacje na podstawie 3 kolumn danych przy użyciu formuły

Poniższa długa formuła może pomóc w wyszczególnieniu wszystkich kombinacji 3 kolumn, wykonaj następujące czynności:

1Kliknij komórkę, w której chcesz wyprowadzić wynik, a następnie skopiuj i wklej do niej poniższą formułę:

Note: W tym wzorze: A2: A4, B2: B6, C2: C5 to zakresy danych, których chcesz użyć.

2. Następnie przeciągnij uchwyt wypełniania w dół do komórek, aż zostaną wyświetlone puste komórki, co oznacza, że ​​wszystkie kombinacje 3 kolumn zostały wymienione, patrz zrzut ekranu:

Generuj wszystkie kombinacje na podstawie 3 lub wielu kolumn danych przy użyciu kodu VBA

Powyższa długa formuła może być nieco trudna w użyciu, jeśli trzeba użyć wielu kolumn danych, będzie kłopotliwa w modyfikacji. Tutaj przedstawię kod VBA, aby szybko sobie z tym poradzić.

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.

Kod VBA: Generuj wszystkie kombinacje 3 lub wielu kolumn

Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3 As Range
Dim xRg  As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3 As Integer
Dim xSV1, xSV2, xSV3 As String
Set xDRg1 = Range("A2:A4")  'First column data
Set xDRg2 = Range("B2:B6")  'Second column data
Set xDRg3 = Range("C2:C5")  'Third column data
xStr = "-"   'Separator
Set xRg = Range("E2")  'Output cell
For xFN1 = 1 To xDRg1.Count
    xSV1 = xDRg1.Item(xFN1).Text
    For xFN2 = 1 To xDRg2.Count
        xSV2 = xDRg2.Item(xFN2).Text
      For xFN3 = 1 To xDRg3.Count
        xSV3 = xDRg3.Item(xFN3).Text
        xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3
        Set xRg = xRg.Offset(1, 0)
       Next
    Next
Next
End Sub

Note: W powyższym kodzie, A2: A4, B2: B6, C2: C5 to zakres danych, którego chcesz użyć, E2 jest komórką wyjściową, w której chcesz zlokalizować wyniki. Jeśli chcesz uzyskać wszystkie kombinacje większej liczby kolumn, zmień i dodaj inne parametry do kodu w razie potrzeby.

3. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a wszystkie kombinacje 3 lub wielu kolumn zostaną wygenerowane jednocześnie, patrz zrzut ekranu:

Generuj wszystkie kombinacje na podstawie 3 lub wielu kolumn danych, korzystając z niesamowitej funkcji

Jeśli Kutools dla programu Excelze swoim potężnym Wyświetl wszystkie kombinacje możesz szybko i łatwo wyświetlić listę wszystkich kombinacji wielu kolumn.

1. Kliknij Kutools > wstawka > Wyświetl wszystkie kombinacjezobacz zrzut ekranu:

2, w Wyświetl wszystkie kombinacje W oknie dialogowym określ kolumny, dane i separatory, aby wyświetlić kombinacje, jak pokazano na poniższym zrzucie ekranu:

3. Po ustawieniu danych i separatora kliknij Ok przycisk, w następnym oknie zachęty wybierz komórkę, aby zlokalizować wynik, zobacz zrzut ekranu:

4. A następnie kliknij OK przycisk, wszystkie kombinacje zostały wygenerowane natychmiast, jak pokazano na zrzucie ekranu: