Salt la conținutul principal

Cum se listează sau se generează toate combinațiile posibile în Excel?

Să presupunem că am următoarele două coloane de date și acum vreau să generez o listă cu toate combinațiile posibile pe baza celor două liste de valori așa cum este afișat ecranul din stânga. Poate, puteți lista toate combinațiile una câte una dacă există puține valori, dar, dacă există mai multe coloane cu valori multiple necesare pentru a fi listate combinațiile posibile, iată câteva trucuri rapide care vă pot ajuta să rezolvați această problemă în Excel .

Enumerați sau generați toate combinațiile posibile din două liste cu formulă

Enumerați sau generați toate combinațiile posibile din trei sau mai multe liste cu cod VBA

Enumerați sau generați toate combinațiile posibile din mai multe liste cu o funcție puternică


Enumerați sau generați toate combinațiile posibile din două liste cu formulă

Următoarea formulă lungă vă poate ajuta să enumerați rapid toate combinațiile posibile ale celor două valori, vă rugăm să faceți următoarele:

1. Introduceți sau copiați formula de mai jos într-o celulă goală, în acest caz, o voi introduce în celula D2 și apoi apăsați Intrați cheie pentru a obține rezultatul, vezi captura de ecran:

=IF(ROW()-ROW($D$2)+1>COUNTA($A$2:$A$5)*COUNTA($B$2:$B$4),"",INDEX($A$2:$A$5,INT((ROW()-ROW($D$2))/COUNTA($B$2:$B$4)+1))&"-"&INDEX($B$2:$B$4,MOD(ROW()-ROW($D$2),COUNTA($B$2:$B$4))+1))

notițe: În formula de mai sus, $ A $ 2: $ A $ 5 este intervalul valorilor primei coloane și $ B $ 2: $ B $ 4 este intervalul valorilor celei de-a doua liste pe care doriți să le listați toate combinațiile posibile, $ D $ 2 este celula pe care ați pus formula, puteți schimba referințele celulei la nevoia dvs.

2. Apoi selectați celula D2 și trageți mânerul de umplere în jos până la celule până obțineți celulele goale și toate combinațiile posibile au fost listate pe baza celor două valori ale listelor. Vedeți captura de ecran:


Enumerați sau generați toate combinațiile posibile din trei sau mai multe liste cu cod VBA

Poate că formula de mai sus vă este oarecum dificilă de aplicat, dacă există date cu mai multe coloane, va fi dificil de modificat. Aici, voi introduce un cod VBA pentru a face față rapid.

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: generați toate combinațiile de 3 sau mai multe coloane

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:A5")  'First column data
Set xDRg2 = Range("B2:B4")  'Second column data
Set xDRg3 = Range("C2:C4")  '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
notițe: În codul de mai sus, A2: A5, B2: B4, C2: C4 sunt intervalul de date pe care doriți să îl utilizați, E2 este celula de ieșire pe care doriți să localizați rezultatele. Dacă doriți să obțineți toate combinațiile de mai multe coloane, vă rugăm să modificați și să adăugați alți parametri la cod, după cum doriți.

3. Apoi, apăsați F5 tasta pentru a rula acest cod și toate combinațiile celor 3 coloane vor fi generate simultan, vezi captura de ecran:


Enumerați sau generați toate combinațiile posibile din mai multe liste cu o funcție puternică

Dacă există mai multe liste, trebuie să fie listate valorile posibile combinații, poate este dificil pentru dvs. să modificați codul. Aici, vă pot recomanda un instrument puternic - Kutools pentru Excel, conține o caracteristică la îndemână Enumerați toate combinațiile care poate lista rapid toate combinațiile posibile pe baza listelor de date date.

sfaturi:Pentru a aplica acest lucru Enumerați toate combinațiile caracteristică, în primul rând, ar trebui să descărcați Kutools pentru Excel, apoi aplicați caracteristica rapid și ușor.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Clic Kutools > Insera > Enumerați toate combinațiile, vezi captura de ecran:

2. În Enumerați toate combinațiile caseta de dialog, efectuați operațiunile după cum se arată în demonstrația de mai jos:

3. Apoi toate valorile și separatoarele specificate au fost listate în caseta de dialog, consultați captura de ecran:

4. Și apoi faceți clic pe Ok și va apărea o casetă de solicitare pentru a vă reaminti să selectați o celulă pentru a afișa rezultatul, vedeți captura de ecran:

5. Clic OK, toate combinațiile posibile bazate pe listele date au fost generate în foaia de lucru, după cum se arată în următoarea captură de ecran:

Faceți clic pentru a descărca Kutools pentru Excel acum!


Mai multe articole relative:

  • Generați toate combinațiile de 3 sau mai multe coloane
  • Presupunând că am 3 coloane de date, acum vreau să generez sau să listez toate combinațiile de date din aceste 3 coloane așa cum este prezentat mai jos. Aveți vreo metodă bună pentru rezolvarea acestei sarcini în Excel?
  • Găsiți toate combinațiile care sunt egale cu o sumă dată
  • De exemplu, am următoarea listă de numere și acum vreau să știu ce combinație de numere din listă însumează 480, în următoarea captură de ecran afișată, puteți vedea că există cinci grupuri de combinații posibile care se adună la fel până la 480, cum ar fi 300 + 60 + 120, 300 + 60 + 40 + 80 etc. Acest articol, voi vorbi despre câteva metode pentru a găsi ce celule însumează o anumită valoare în Excel.
  • Generați sau enumerați toate permutările posibile
  • De exemplu, am trei caractere XYZ, acum, vreau să listez toate permutările posibile pe baza acestor trei caractere pentru a obține șase rezultate diferite astfel: XYZ, XZY, YXZ, YZX, ZXY și ZYX. În Excel, cum ați putea genera sau lista rapid toate permutările pe baza unui număr diferit de caractere?
  • Generați o listă cu toate combinațiile posibile de 4 cifre
  • În unele cazuri, este posibil să trebuiască să generăm o listă cu toate combinațiile posibile de 4 cifre de la numărul 0 la 9, ceea ce înseamnă că se generează o listă de 0000, 0001, 0002 ... 9999. Pentru a rezolva rapid sarcina listei în Excel, vă prezint câteva trucuri.

 

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!

 

Comments (42)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
como que poderia gerar uma lista de combinações de nomes no LibreOffice?
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hello, Johansson

Sorry, the methods in this article are only applied for Microsoft Excel.
Thank you!
This comment was minimized by the moderator on the site
Hej alle sammen

Jeg håber at i kan hjælpe med dette.

Jeg har en af de gamle Bastalåse kodelåse med 6 knapper, hvor man kan trykke knapperne ind, lade dem være i neutral eller trække dem ud.

Låsen var åben da jeg købte den, så jeg låste den i håb om at jeg kunne gå kombinationerne igennem.

Men jeg har lidt problemer med at få nedskrevet samtlige kombinationer (729 så vidt jeg kan regne ud).

Er der en der vil hjælpe mig med med dette? Evt. kan man kalde de 3 indstillingsmuligheder pr. knap for: 1-2-3, 1-0-2, eller I-N-U (ind-neutral-ud).


Krydser finger og siger på forhånd mange tak hvis jeg kan få låsen op, det er sådan lidt nostalgi.

Mvh

Nicolaj
This comment was minimized by the moderator on the site
No 1º Exemplo de captura de tela , está faltando em All combinations Jan - KTE
This comment was minimized by the moderator on the site
Hello friend,
How are you. Thank you for your notice. We changed the first ficture. Please check now. Have a nice day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
Hi,
I have a project with excel (including Kutools) that I am stuck on.
Can anyone tell me how to get a list of all combinations of 6 different numbers, without repeating any of the numbers?
I know there should be 6! = 720 combinations but I need the list.
Thanks
This comment was minimized by the moderator on the site
Hi,
I have a project with excel (including Kutools) that I am stuck on.
Can anyone tell me how to get a list of all combinations of 6 different numbers, without repeating any digit?
I know there should be 6! = 720 combinations but I need the list.
Thanks
This comment was minimized by the moderator on the site
Hello Extend Office,
I want to extend the VBA code in "List Or Generate All Possible Combinations From Three Or More Lists With VBA Code article"
I want to show only the one's whose total of the combinations is equal to 9. Can you please show the additional extension/lines in the code? sorry, I'm barely new in VBA.
For example, I only want to show the combinations like the following:
1-2-2-2-2 (this is equal to 1+2+2+2+2 = 9) so, it will show the ones whose total is 9, the rest won't show.
1-2-3-1-3 (=9)
1-3-2-1-2 (=9) and so on...

Thanks very much for your help
Dalesimplest.becky15.08.21

This comment was minimized by the moderator on the site
edited formula to randomize 5 columns instead of 3 but still wont work,why?
Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3, xDRg4, xDRg5 As Range
Dim xRg As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3, xFN4, xF5 As Integer
Dim xSV1, xSV2, xSV3, xSV4, xSV5 As String
Set xDRg1 = Range("A2:A10") 'First column data
Set xDRg2 = Range("B2:B10") 'Second column data
Set xDRg3 = Range("C2:C10") 'Third column data
Set xDRg2 = Range("D2:D10") 'Fourth column data
Set xDRg3 = Range("E2:E10") 'Fifth column data
xStr = "," 'Separator
Set xRg = Range("G2") '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
For xFN4 = 1 To xDRg4.Count
xSV4 = xDRg4.Item(xFN4).Text
For xFN5 = 1 To xDRg5.Count
xSV5 = xDRg5.Item(xFN5).Text
xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3 & xStr & xSV4 & xStr & xSV5
Set xRg = xRg.Offset(1, 0)
Next
Next
Next
End Sub
This comment was minimized by the moderator on the site
Hello, jericho,You should modify your code as below code, please try it, thank you!<div data-tag="code">Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3, xDRg4, xDRg5 As Range
Dim xRg As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3, xFN4, xFN5 As Integer
Dim xSV1, xSV2, xSV3, xSV4, xSV5 As String
Set xDRg1 = Range("A2:A10") 'First column data
Set xDRg2 = Range("B2:B10") 'Second column data
Set xDRg3 = Range("C2:C10") 'Third column data
Set xDRg4 = Range("D2:D10") 'Fourth column data
Set xDRg5 = Range("E2:E10") 'Fifth column data
xStr = "-" 'Separator
Set xRg = Range("H2") '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
For xFN4 = 1 To xDRg4.Count
xSV4 = xDRg4.Item(xFN4).Text
For xFN5 = 1 To xDRg5.Count
xSV5 = xDRg5.Item(xFN5).Text
xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3 & xStr & xSV4 & xStr & xSV5
Set xRg = xRg.Offset(1, 0)
Next
Next
Next
Next
Next
End Sub
This comment was minimized by the moderator on the site
How to remove the repetition if I have color 1, color 2, color 3 in different orders(i.e. color2, color 3, color 1) but they are the same for my need? tks!
This comment was minimized by the moderator on the site
Excelentes soluciones, muchas gracias, lo logré con Kutools
This comment was minimized by the moderator on the site
NON FUNZIONA. HO SEGUITO GLI STESSI PASSAGGI MA MI DICE CHE C'E' UN ERRORE
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations