Πώς να δημιουργήσετε όλους τους συνδυασμούς 3 ή πολλαπλών στηλών στο Excel;
Ας υποθέσουμε, έχω 3 στήλες δεδομένων, τώρα, θέλω να δημιουργήσω ή να παραθέσω όλους τους συνδυασμούς των δεδομένων σε αυτές τις 3 στήλες όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Έχετε καλές μεθόδους για την επίλυση αυτής της εργασίας στο Excel;
Δημιουργήστε όλους τους συνδυασμούς με βάση 3 στήλες δεδομένων χρησιμοποιώντας έναν τύπο
Δημιουργήστε όλους τους συνδυασμούς με βάση 3 στήλες δεδομένων χρησιμοποιώντας έναν τύπο
Ο παρακάτω μακρύς τύπος μπορεί να σας βοηθήσει να απαριθμήσετε όλους τους συνδυασμούς 3 στηλών, κάντε το ως εξής:
1. Κάντε κλικ σε ένα κελί για να εξάγετε το αποτέλεσμα και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω τύπο σε αυτό:
Σημείωση: Σε αυτόν τον τύπο: A2: A4, Β2: Β6, C2: C5 είναι τα εύρη δεδομένων που θέλετε να χρησιμοποιήσετε.
2. Στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω έως ότου εμφανιστούν κενά κελιά, που σημαίνει ότι έχουν καταχωριστεί όλοι οι συνδυασμοί των 3 στηλών, δείτε το στιγμιότυπο οθόνης:
Δημιουργήστε όλους τους συνδυασμούς βάσει 3 ή πολλαπλών στηλών δεδομένων χρησιμοποιώντας τον κώδικα 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: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
Σημείωση: Στον παραπάνω κώδικα, A2: A4, Β2: Β6, C2: C5 είναι το εύρος δεδομένων που θέλετε να χρησιμοποιήσετε, E2 είναι το κελί εξόδου που θέλετε να εντοπίσετε τα αποτελέσματα. Εάν θέλετε να λάβετε όλους τους συνδυασμούς περισσότερων στηλών, αλλάξτε και προσθέστε άλλες παραμέτρους στον κώδικα ανάλογα με τις ανάγκες σας.
3. Στη συνέχεια, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και όλοι οι συνδυασμοί των 3 ή πολλαπλών στηλών θα δημιουργηθούν ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:
Δημιουργήστε όλους τους συνδυασμούς που βασίζονται σε 3 ή πολλαπλές στήλες δεδομένων χρησιμοποιώντας μια καταπληκτική δυνατότητα
Εάν έχετε Kutools για Excel, με το ισχυρό του Λίστα όλων των συνδυασμών δυνατότητα, μπορείτε να απαριθμήσετε όλους τους συνδυασμούς πολλαπλών στηλών γρήγορα και εύκολα.
Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:
1. Κλίκ Kutools > Κύριο θέμα > Λίστα όλων των συνδυασμών, δείτε το στιγμιότυπο οθόνης:
2. Στην Λίστα όλων των συνδυασμών πλαίσιο διαλόγου, καθορίστε τα δεδομένα στηλών και τα διαχωριστικά για την καταχώριση των συνδυασμών όπως φαίνεται παρακάτω
3. Αφού ορίσετε τα δεδομένα και το διαχωριστικό, κάντε κλικ στο Ok κουμπί, στο επόμενο πλαίσιο προτροπής, επιλέξτε ένα κελί για να εντοπίσετε το αποτέλεσμα, δείτε το στιγμιότυπο οθόνης:
4. Και μετά, κάντε κλικ στο OK κουμπί, όλοι οι συνδυασμοί έχουν δημιουργηθεί αμέσως όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
Κάντε κλικ για λήψη του Kutools για Excel και δωρεάν δοκιμή τώρα!
Τα καλύτερα εργαλεία παραγωγικότητας του Office
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
- Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
- Συγχώνευση κελιών / σειρών / στηλών και τήρηση δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές και άθροισμα / μέσος όρος... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
- Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
- Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
- Αγαπημένα και γρήγορη εισαγωγή τύπων, Σειρά, Διαγράμματα και Εικόνες; Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
- Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
- Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
- Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
- Ομαδοποίηση συγκεντρωτικού πίνακα κατά αριθμός εβδομάδας, ημέρα εβδομάδας και πολλά άλλα ... Εμφάνιση ξεκλειδωμένων, κλειδωμένων κελιών με διαφορετικά χρώματα. Επισημάνετε τα κελιά που έχουν τύπο / όνομα...
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
