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

Πώς να συγκρίνετε τιμές διαχωρισμένες με κόμματα σε δύο κελιά και να επιστρέψετε διπλότυπες ή μοναδικές τιμές στο Excel;

Όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, υπάρχουν δύο στήλες - Στήλη1 και Στήλη2, κάθε κελί στη στήλη περιέχει αριθμούς διαχωρισμένους με κόμματα. Για να συγκρίνετε τους αριθμούς διαχωρισμένους με κόμματα στη Στήλη1 με τα περιεχόμενα των κελιών στην ίδια σειρά της Στήλης2 και να επιστρέψετε όλες τις διπλότυπες ή μοναδικές τιμές, τι θα μπορούσατε να κάνετε;

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


Συγκρίνετε τιμές διαχωρισμένες με κόμματα σε δύο κελιά και επιστρέψτε διπλότυπες ή μοναδικές τιμές με τύπους

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

Note: Οι παρακάτω τύποι λειτουργούν μόνο Excel για 365. Εάν χρησιμοποιείτε άλλες εκδόσεις του Excel, δοκιμάστε να χρησιμοποιήσετε την παρακάτω μέθοδο VBA.

Πάρτε τις παραπάνω δύο στήλες ως παράδειγμα, για να συγκρίνετε τους αριθμούς διαχωρισμένους με κόμματα στη Στήλη1 με τους αριθμούς διαχωρισμένους με κόμματα στην ίδια σειρά της Στήλης2 και να επιστρέψετε διπλότυπες ή μοναδικές τιμές, κάντε τα εξής.

Επιστρέψτε διπλότυπες τιμές

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

=LET(x, TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ",TRUE,A2:B2), ", ")),y,UNIQUE(x),z,UNIQUE(x,,1), TEXTJOIN(", ",TRUE,IF(ISERROR(MATCH(y,z,0)),y, "")))

Επιστρέψτε μοναδικές αξίες

Για να επιστρέψετε τους μοναδικούς αριθμούς μεταξύ των δύο καθορισμένων κελιών με αριθμούς διαχωρισμένους με κόμματα στην ίδια σειρά, ο ακόλουθος τύπος μπορεί να βοηθήσει.

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

=TEXTJOIN(", ",TRUE,UNIQUE(TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ",TRUE,A2:B2), ", ")),,1))

Notes:

1) Οι παραπάνω δύο τύποι μπορούν να εφαρμοστούν μόνο στο Excel για 365. Εάν χρησιμοποιείτε μια έκδοση του Excel διαφορετική από το Excel για 365, δοκιμάστε την ακόλουθη μέθοδο VBA.
2) Τα κελιά που πρόκειται να συγκριθούν πρέπει να είναι γειτονικά μεταξύ τους στην ίδια γραμμή ή στήλη.

Συγκρίνετε δύο στήλες με τιμές διαχωρισμένες με κόμμα και επιστρέψτε διπλότυπες ή μοναδικές τιμές με VBA

Η συνάρτηση που ορίζεται από το χρήστη που παρέχεται σε αυτήν την ενότητα βοηθά στη σύγκριση των τιμών διαχωρισμένων με κόμματα σε δύο καθορισμένα κελιά και στην επιστροφή των διπλότυπων τιμών ή των μοναδικών τιμών μεταξύ τους. Παρακαλώ κάντε το εξής.

Πάρτε το ίδιο παράδειγμα όπως παραπάνω, για να συγκρίνετε τους αριθμούς διαχωρισμένους με κόμματα στη Στήλη1 με τους αριθμούς διαχωρισμένους με κόμματα στην ίδια σειρά της Στήλης2 και να επιστρέψετε διπλότυπες ή μοναδικές τιμές, δοκιμάστε τη συνάρτηση που ορίζεται από το χρήστη σε αυτήν την ενότητα.

1. Στο βιβλίο εργασίας που ανοίγει, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησηςκαι αντιγράψτε τον ακόλουθο κώδικα VBA στο Ενότητα (Κωδικός) παράθυρο.

Κωδικός VBA: Συγκρίνετε τιμές διαχωρισμένες με κόμματα σε δύο κελιά και επιστρέψτε διπλότυπες/μοναδικές τιμές

Private Function COMPARE(Rng1, Rng2 As Range, Op As Boolean)
'Updated by Extendoffice 20221019
    Dim R1Arr As Variant
    Dim R2Arr As Variant
    Dim Ans1 As String
    Dim Ans2 As String
    Dim Separator As String
    Dim d1 As New Dictionary
    Dim d2 As New Dictionary
    Dim d3 As New Dictionary
    Application.Volatile

    Separator = ", "
    
    R1Arr = Split(Rng1.Value, Separator)
    R2Arr = Split(Rng2.Value, Separator)
    
    Ans1 = ""
    Ans2 = ""
    
    For Each ch In R2Arr
        If Not d2.Exists(ch) Then
            d2.Add ch, "1"
        End If
    Next
    
    If Op Then
        For Each ch In R1Arr
            If d2.Exists(ch) Then
                If Not d3.Exists(ch) Then
                    d3.Add ch, "1"
                    Ans1 = Ans1 & ch & Separator
                End If
            End If
        Next
        If Ans1 <> "" Then
            Ans1 = Mid(Ans1, 1, Len(Ans1) - Len(Separator))
        End If
        COMPARE = Ans1
    Else
        For Each ch In R1Arr
            If Not d1.Exists(ch) Then
                d1.Add ch, "1"
            End If
        Next
        
        For Each ch In R1Arr
            If Not d2.Exists(ch) Then
                If Not d3.Exists(ch) Then
                    d3.Add ch, "1"
                    Ans2 = Ans2 & ch & Separator
                End If
            End If
        Next
        For Each ch In R2Arr
            If Not d1.Exists(ch) Then
                If Not d3.Exists(ch) Then
                    d3.Add ch, "1"
                    Ans2 = Ans2 & ch & Separator
                End If
            End If
        Next
        If Ans2 <> "" Then
            Ans2 = Mid(Ans2, 1, Len(Ans2) - Len(Separator))
        End If
        COMPARE = Ans2
    End If

End Function

3. Αφού επικολλήσετε τον κωδικό στο Ενότητα (Κωδικός) παράθυρο, μεταβείτε στο κλικ Εργαλεία > αναφορές για να ανοίξετε το Αναφορές - VBAProject παράθυρο, ελέγξτε το Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft και στη συνέχεια κάντε κλικ στο OK κουμπί.

4. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

5. Τώρα πρέπει να εφαρμόσετε δύο συναρτήσεις ξεχωριστά για να επιστρέψετε τις διπλότυπες και τις μοναδικές τιμές από δύο κελιά τιμών διαχωρισμένων με κόμματα.

Επιστρέψτε διπλότυπη τιμή

Επιλέξτε ένα κελί για να εξάγετε τους διπλότυπους αριθμούς, σε αυτό το παράδειγμα, επιλέγω το κελί D2, εισάγω τον παρακάτω τύπο και πατάω το εισάγετε κλειδί για να λάβετε τους διπλότυπους αριθμούς μεταξύ των κελιών A2 και B2.

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

=COMPARE(A2,B2,TRUE)

Επιστρέψτε μοναδικές αξίες

Επιλέξτε ένα κελί για να εξάγετε τους μοναδικούς αριθμούς, σε αυτό το παράδειγμα, επιλέγω το κελί E2, εισάγω τον παρακάτω τύπο και πατάω το εισάγετε κλειδί για να λάβετε τους μοναδικούς αριθμούς μεταξύ των κελιών A2 και B2.

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

=COMPARE(A2,B2,FALSE)

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: 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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations