Μετάβαση στο κύριο περιεχόμενο

Πώς να παραθέσετε ή να δημιουργήσετε όλους τους πιθανούς συνδυασμούς στο Excel;

Ας πούμε, έχω τις ακόλουθες δύο στήλες δεδομένων και τώρα θέλω να δημιουργήσω μια λίστα με όλους τους δυνατούς συνδυασμούς με βάση τις δύο λίστες τιμών όπως φαίνεται στο αριστερό στιγμιότυπο οθόνης. Ίσως, μπορείτε να απαριθμήσετε όλους τους συνδυασμούς έναν προς έναν εάν υπάρχουν λίγες τιμές, αλλά, εάν υπάρχουν αρκετές στήλες με πολλαπλές τιμές που πρέπει να αναφέρονται οι πιθανοί συνδυασμοί, εδώ είναι μερικά γρήγορα κόλπα που μπορεί να σας βοηθήσουν να αντιμετωπίσετε αυτό το πρόβλημα στο Excel .

Λίστα ή δημιουργία όλων των πιθανών συνδυασμών από δύο λίστες με τύπο

Λίστα ή δημιουργία όλων των πιθανών συνδυασμών από τρεις ή περισσότερες λίστες με κώδικα VBA

Λίστα ή δημιουργία όλων των πιθανών συνδυασμών από πολλές λίστες με μια ισχυρή δυνατότητα


Λίστα ή δημιουργία όλων των πιθανών συνδυασμών από δύο λίστες με τύπο

Ο παρακάτω μακρύς τύπος μπορεί να σας βοηθήσει να απαριθμήσετε γρήγορα όλους τους πιθανούς συνδυασμούς τιμών δύο λιστών, κάντε τα εξής:

1. Εισαγάγετε ή αντιγράψτε τον παρακάτω τύπο σε ένα κενό κελί, σε αυτήν την περίπτωση, θα το εισαγάγω στο κελί D2 και μετά πατήστε εισάγετε κλειδί για να λάβετε το αποτέλεσμα, δείτε το στιγμιότυπο οθόνης:

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

Note: Στον παραπάνω τύπο, $ A $ 2: $ A $ 5 είναι το εύρος των τιμών της πρώτης στήλης και $ B $ 2: $ B $ 4 είναι το εύρος των τιμών της δεύτερης λίστας που θέλετε να αναφέρετε όλους τους δυνατούς συνδυασμούς τους, το $ D $ 2 είναι το κελί που βάλετε τον τύπο, μπορείτε να αλλάξετε τις αναφορές κελιού ανάλογα με τις ανάγκες σας.

2. Στη συνέχεια, επιλέξτε το κελί D2 και σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά μέχρι να λάβετε τα κενά κελιά και όλοι οι πιθανοί συνδυασμοί έχουν αναφερθεί με βάση τις τιμές των δύο λιστών. Δείτε το στιγμιότυπο οθόνης:


Λίστα ή δημιουργία όλων των πιθανών συνδυασμών από τρεις ή περισσότερες λίστες με κώδικα VBA

Ίσως η παραπάνω φόρμουλα είναι κάπως δύσκολη για εσάς να εφαρμόσετε, εάν υπάρχουν πολλά δεδομένα στηλών, θα είναι ενοχλητικό για την τροποποίηση. Εδώ, θα παρουσιάσω έναν κωδικό VBA για γρήγορο χειρισμό του.

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Δημιουργήστε όλους τους συνδυασμούς 3 ή πολλαπλών στηλών

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
Note: Στον παραπάνω κώδικα, A2: A5, Β2: Β4, C2: C4 είναι το εύρος δεδομένων που θέλετε να χρησιμοποιήσετε, E2 είναι το κελί εξόδου που θέλετε να εντοπίσετε τα αποτελέσματα. Εάν θέλετε να λάβετε όλους τους συνδυασμούς περισσότερων στηλών, αλλάξτε και προσθέστε άλλες παραμέτρους στον κώδικα ανάλογα με τις ανάγκες σας.

3. Στη συνέχεια, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και όλοι οι συνδυασμοί των 3 στηλών θα δημιουργηθούν ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:


Λίστα ή δημιουργία όλων των πιθανών συνδυασμών από πολλές λίστες με μια ισχυρή δυνατότητα

Εάν υπάρχουν πολλές λίστες, οι τιμές πρέπει να αναφέρονται στους πιθανούς συνδυασμούς, ίσως είναι δύσκολο για εσάς να τροποποιήσετε τον κώδικα. Εδώ, μπορώ να προτείνω ένα ισχυρό εργαλείο - Kutools για Excel, περιέχει ένα εύχρηστο χαρακτηριστικό Λίστα όλων των συνδυασμών η οποία μπορεί να απαριθμήσει γρήγορα όλους τους πιθανούς συνδυασμούς με βάση δεδομένες λίστες δεδομένων.

Συμβουλές:Για να το εφαρμόσετε Λίστα όλων των συνδυασμών χαρακτηριστικό, πρώτα, πρέπει να κατεβάσετε το Kutools για Excelκαι, στη συνέχεια, εφαρμόστε τη λειτουργία γρήγορα και εύκολα.

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Πατήστε Kutools > Κύριο θέμα > Λίστα όλων των συνδυασμών, δείτε το στιγμιότυπο οθόνης:

2. Στην Λίστα όλων των συνδυασμών πλαίσιο διαλόγου, κάντε τις λειτουργίες όπως φαίνεται παρακάτω:

3. Στη συνέχεια, όλες οι καθορισμένες τιμές και διαχωριστικά έχουν καταχωρηθεί στο πλαίσιο διαλόγου, δείτε το στιγμιότυπο οθόνης:

4. Και στη συνέχεια κάντε κλικ Ok κουμπί και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε ένα κελί για την έξοδο του αποτελέσματος, δείτε το στιγμιότυπο οθόνης:

5. Κλίκ OK, όλοι οι πιθανοί συνδυασμοί με βάση τις συγκεκριμένες λίστες έχουν δημιουργηθεί στο φύλλο εργασίας όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:

Κάντε κλικ για λήψη του Kutools για Excel τώρα!


Σχετικά άρθρα:

  • Δημιουργήστε όλους τους συνδυασμούς 3 ή πολλαπλών στηλών
  • Ας υποθέσουμε, έχω 3 στήλες δεδομένων, τώρα, θέλω να δημιουργήσω ή να παραθέσω όλους τους συνδυασμούς των δεδομένων σε αυτές τις 3 στήλες όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Έχετε καλές μεθόδους για την επίλυση αυτής της εργασίας στο Excel;
  • Βρείτε όλους τους συνδυασμούς που ισούται με ένα δεδομένο άθροισμα
  • Για παράδειγμα, έχω την ακόλουθη λίστα αριθμών, και τώρα, θέλω να μάθω ποιος συνδυασμός αριθμών στη λίστα ανέρχεται έως 480, στο παρακάτω στιγμιότυπο οθόνης που εμφανίζεται, μπορείτε να δείτε ότι υπάρχουν πέντε ομάδες πιθανών συνδυασμών που προσθέτουν ίσους έως 480, όπως 300 + 60 + 120, 300 + 60 + 40 + 80, κ.λπ. Αυτό το άρθρο, θα μιλήσω για ορισμένες μεθόδους για να βρω ποια κελιά συνοψίζουν μια συγκεκριμένη τιμή στο Excel.
  • Δημιουργία ή λίστα όλων των πιθανών παραλλαγών
  • Για παράδειγμα, έχω τρεις χαρακτήρες XYZ, τώρα, θέλω να παραθέσω όλες τις πιθανές παραλλαγές με βάση αυτούς τους τρεις χαρακτήρες για να λάβω έξι διαφορετικά αποτελέσματα ως εξής: XYZ, XZY, YXZ, YZX, ZXY και ZYX. Στο Excel, πώς θα μπορούσατε να δημιουργήσετε ή να απαριθμήσετε γρήγορα όλες τις παραλλαγές βάσει διαφορετικού αριθμού χαρακτήρων;
  • Δημιουργήστε μια λίστα με όλους τους πιθανούς συνδυασμούς 4 ψηφίων
  • Σε ορισμένες περιπτώσεις, ενδέχεται να χρειαστεί να δημιουργήσουμε μια λίστα με όλους τους δυνατούς συνδυασμούς 4 ψηφίων από τον αριθμό 0 έως 9, που σημαίνει τη δημιουργία μιας λίστας 0000, 0001, 0002… 9999. Για γρήγορη επίλυση της εργασίας λίστας στο Excel, σας παρουσιάζω μερικά κόλπα για εσάς.

 

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

 

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