Πώς να εξαγάγετε όλες τις μερικές αντιστοιχίσεις στο Excel;
Εάν θέλετε να εξαγάγετε όλες τις αντιστοιχίσεις που περιέχουν μια συγκεκριμένη λέξη-κλειδί από μια στήλη και να τις καταχωρίσετε σε μια στήλη ή σε ένα κελί που χωρίζεται από έναν οριοθέτη όπως φαίνεται παρακάτω στιγμιότυπο οθόνης, πώς θα μπορούσατε να επιλύσετε αυτήν την εργασία στο Excel;
Εξαγάγετε όλες τις επιμέρους αντιστοιχίσεις κάθετα με τον τύπο
Εξαγάγετε όλες τις επιμέρους αντιστοιχίσεις κάθετα με τον τύπο
Για να εξαγάγετε όλες τις αντιστοιχίσεις κάθετα σε μια στήλη με βάση ένα μερικό κείμενο, ο ακόλουθος τύπος πίνακα μπορεί να σας κάνει τη χάρη:
Step1: Αντιγράψτε και επικολλήστε τον παρακάτω τύπο σε ένα κενό κελί όπου θέλετε να τοποθετήσετε το αποτέλεσμα:
Note: Στον παραπάνω τύπο, A2: A14 είναι τα κελιά μπορεί να περιέχουν τη λέξη-κλειδί από την οποία θέλετε να επιστρέψετε αντιστοιχίσεις, C2 περιέχει τη λέξη κλειδί, E1 είναι το κελί πάνω από τον τύπο.
Step2: Στη συνέχεια πατήστε Ctrl + Shift + Εισαγωγή πληκτρολογήστε ταυτόχρονα για να λάβετε το πρώτο αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω για να λάβετε όλες τις αντιστοιχίσεις μέχρι να εμφανιστεί η τιμή σφάλματος. Επιτέλους, διαγράψτε τις τιμές σφάλματος, δείτε στιγμιότυπο οθόνης:
Εξαγάγετε όλες τις επιμέρους αντιστοιχίσεις σε ένα μόνο κελί με τη συνάρτηση καθορισμένη από το χρήστη
Εάν πρέπει να εξαγάγετε όλες τις αντιστοιχίσεις σε ένα μόνο κελί και να τις διαχωρίζει ένας συγκεκριμένος οριοθέτης, ίσως δεν υπάρχει τύπος που να μπορεί να το λύσει. Εδώ, πρέπει να εφαρμόσετε την παρακάτω συνάρτηση που καθορίζεται από το χρήστη:
Step1: Πιέστε Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
Step2: Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης, στη συνέχεια αντιγράψτε τον ακόλουθο κώδικα στη μονάδα.
Κώδικας VBA: Εξαγωγή όλων των μερικών αντιστοιχίσεων σε ένα μόνο κελί
Function ExtractPartMatch(rngInput As Range, rngSource As Range, Optional sDelimiter As String)
'Updateby ExtendOffice
Dim rng As Range
If sDelimiter = "" Then sDelimiter = ", "
For Each rng In rngSource
If InStr(1, rng.Value, rngInput.Value, vbTextCompare) > 0 Then ExtractPartMatch = ExtractPartMatch & sDelimiter & rng.Value
Next
If Len(ExtractPartMatch) > 0 Then ExtractPartMatch = Mid(ExtractPartMatch, 2, Len(ExtractPartMatch))
End Function
Step3: Αφού επικολλήσετε τον κώδικα, επιστρέψτε στο φύλλο εργασίας όπου θέλετε να εντοπίσετε το αποτέλεσμα και, στη συνέχεια, εισαγάγετε αυτόν τον τύπο: =ExtractPartMatch(C2,$A$2:$A$14)και, στη συνέχεια, πατήστε εισάγετε κλειδί για να λάβετε το αποτέλεσμα όπως φαίνεται παρακάτω το στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
