Jak wygenerować wszystkie kombinacje 3 lub wielu kolumn w programie Excel?
Przypuśćmy, że mam 3 kolumny danych, teraz chcę wygenerować lub wyświetlić wszystkie kombinacje danych w tych 3 kolumnach, jak pokazano poniżej. 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
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:
1. Kliknij 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 jest nieco trudna w użyciu, jeśli istnieje wiele kolumn, których trzeba użyć, będzie to kłopotliwe przy modyfikowaniu. 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 to komórka wyjściowa, w której chcesz zlokalizować wyniki. Jeśli chcesz uzyskać wszystkie kombinacje większej liczby kolumn, zmień i dodaj inne parametry do kodu zgodnie z potrzebami.
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.
Po zainstalowaniu Kutools dla programu Excel, zrób tak:
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:
Kliknij, aby pobrać Kutools dla programu Excel i bezpłatną wersję próbną teraz!
Najlepsze narzędzia biurowe
Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%
- Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
- Scal komórki / wiersze / kolumny i przechowywanie danych; Podziel zawartość komórek; Połącz zduplikowane wiersze i sumę / średnią... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
- Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
- Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
- Ulubione i szybkie wstawianie formuł, Zakresy, wykresy i obrazy; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
- Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
- Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
- Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
- Grupowanie tabel przestawnych według numer tygodnia, dzień tygodnia i więcej ... Pokaż odblokowane, zablokowane komórki w różnych kolorach; Podświetl komórki, które mają formułę / nazwę...
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!