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

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

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

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

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

Σημείωση: Οι παρακάτω τύποι λειτουργούν μόνο 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))

Σημειώσεις:

Ξεκλειδώστε το Excel Magic με Kutools AI

• Έξυπνη εκτέλεση: Εκτελέστε λειτουργίες κυψέλης, αναλύστε δεδομένα και δημιουργήστε γραφήματα—όλα αυτά καθοδηγούνται από απλές εντολές.
• Προσαρμοσμένες φόρμουλες: Δημιουργήστε προσαρμοσμένους τύπους για να βελτιστοποιήσετε τις ροές εργασίας σας.
• Κωδικοποίηση VBA: Γράψτε και εφαρμόστε τον κώδικα VBA χωρίς κόπο.
• Ερμηνεία τύπου: Κατανοήστε πολύπλοκους τύπους με ευκολία.
• Μετάφραση κειμένου: Σπάστε τα γλωσσικά εμπόδια στα υπολογιστικά φύλλα σας.

Βελτιώστε τις δυνατότητές σας στο Excel με εργαλεία που υποστηρίζονται από AI. Κατεβάστε τώρα και βιώστε την αποτελεσματικότητα όπως ποτέ άλλοτε!

Συγκρίνετε δύο στήλες με τιμές διαχωρισμένες με κόμμα και επιστρέψτε διπλότυπες ή μοναδικές τιμές με 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)