Ugrás a tartalomra

Hogyan lehet felsorolni vagy létrehozni az összes lehetséges kombinációt az Excelben?

Tegyük fel, hogy a következő két oszlopom van, és most szeretnék létrehozni egy listát az összes lehetséges kombinációról a bal oldali képernyőképen látható két értéklista alapján. Lehetséges, hogy az összes kombinációt felsorolhatja egyenként, ha kevés érték van, de ha több oszlop van, több értékkel kell felsorolni a lehetséges kombinációkat, akkor itt néhány gyors trükk segíthet kezelni ezt a problémát az Excel programban .

Sorolja fel vagy állítsa elő az összes lehetséges kombinációt képletből képlettel

Soroljon fel vagy generáljon minden lehetséges kombinációt három vagy több listából, VBA kóddal

Soroljon fel vagy generáljon minden lehetséges kombinációt több listából egy hatékony szolgáltatással


Sorolja fel vagy állítsa elő az összes lehetséges kombinációt képletből képlettel

A következő hosszú képlet segíthet abban, hogy gyorsan felsorolja a két listaérték összes lehetséges kombinációját.

1. Írja be vagy másolja az alábbi képletet egy üres cellába, ebben az esetben beírom a D2 cellába, majd megnyomom belép kulcs az eredmény eléréséhez, lásd a képernyőképet:

=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))

Megjegyzések: A fenti képletben $ A $ 2: $ A $ 5 az első oszlop értéktartománya, és $ B $ 2: $ B $ 4 a második listaértékek tartománya, amelyek felsorolni kívánják az összes lehetséges kombinációjukat, a $ D $ 2 az a cella, amelyet a képletbe helyezett, megváltoztathatja a cellahivatkozásokat az igényeinek megfelelően.

2. Ezután válassza ki a D2 cellát, és húzza lefelé a cellákat a cellákig, amíg meg nem kapják az üres cellákat, és az összes lehetséges kombináció fel lett sorolva a két listaérték alapján. Lásd a képernyőképet:


Soroljon fel vagy generáljon minden lehetséges kombinációt három vagy több listából, VBA kóddal

Lehet, hogy a fenti képletet kissé nehéz alkalmazni az Ön számára, ha több oszlopadat van, akkor nehézkes a módosítása. Itt bemutatok egy VBA kódot, hogy gyorsan kezelhessem.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Hozza létre 3 vagy több oszlop összes kombinációját

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
Megjegyzések: A fenti kódban A2: A5, B2: B4, C2: C4 a használni kívánt adattartomány, E2 az a kimeneti cella, amelyen meg akarja találni az eredményeket. Ha több oszlop összes kombinációját meg szeretné kapni, kérjük, módosítsa és más paramétereket adjon hozzá a kódhoz.

3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és a 3 oszlop összes kombinációja egyszerre jön létre, lásd a képernyőképet:


Soroljon fel vagy generáljon minden lehetséges kombinációt több listából egy hatékony szolgáltatással

Ha több lista van, akkor fel kell sorolni az értékeket a lehetséges kombinációkra, talán nehéz módosítani a kódot. Itt egy hatékony eszközt tudok ajánlani - Kutools az Excel számára, praktikus funkciót tartalmaz Sorolja fel az összes kombinációt amely az adott adatlisták alapján gyorsan felsorolhatja az összes lehetséges kombinációt.

tippek:Ennek alkalmazásához Sorolja fel az összes kombinációt funkció, először is le kell töltenie a Kutools az Excel számára, majd gyorsan és egyszerűen alkalmazza a funkciót.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools > betétlap > Sorolja fel az összes kombinációt, lásd a képernyőképet:

2. Az Sorolja fel az összes kombinációt párbeszédpanelen hajtsa végre a műveleteket az alábbiakban bemutatott módon:

3. Ezután az összes megadott érték és elválasztó fel lett sorolva a párbeszédpanelen, lásd a képernyőképet:

4.Majd kattintson Ok gombra, és megjelenik egy felszólító mező, amely emlékezteti Önt, hogy válasszon egy cellát az eredmény kiadásához, lásd a képernyőképet:

5. Kattints OK, a megadott listák alapján az összes lehetséges kombinációt a munkalapra hoztuk létre, az alábbi képernyőkép szerint:

Kattintson a Kutools for Excel letöltéséhez most!


Relatívabb cikkek:

  • Generáljon 3 vagy több oszlop összes kombinációját
  • Tételezzük fel, hogy 3 adatoszlopom van, most szeretném létrehozni vagy felsorolni az adatok összes kombinációját ebben a 3 oszlopban, az alábbi képernyőképen. Van valami jó módszere a feladat Excelben történő megoldására?
  • Keresse meg az összes kombinációt, amely megegyezik egy adott összeggel
  • Például a következő számlistám van, és most szeretném tudni, hogy a lista mely számkombinációi vannak 480-ig, a következő képernyőképen látható, hogy öt lehetséges kombinációcsoport van, amelyek összeadódnak 480-ig, például 300 + 60 + 120, 300 + 60 + 40 + 80 stb. Ebben a cikkben néhány módszerről fogok beszélni, hogy megtaláljuk, mely cellák összegeznek egy adott értéket az Excel-ben.
  • Létrehoz vagy felsorol minden lehetséges permutációt
  • Például három karakterem van XYZ, most szeretnék felsorolni az összes lehetséges permutációt e három karakter alapján, hogy hat különböző eredményt kapjak: XYZ, XZY, YXZ, YZX, ZXY és ZYX. Az Excelben hogyan lehetne gyorsan előállítani vagy felsorolni az összes permutációt a különböző karakterek száma alapján?

 

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

 

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