Πώς να συγκρίνετε τιμές διαχωρισμένες με κόμματα σε δύο κελιά και να επιστρέψετε διπλότυπες ή μοναδικές τιμές στο 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:
Συγκρίνετε δύο στήλες με τιμές διαχωρισμένες με κόμμα και επιστρέψτε διπλότυπες ή μοναδικές τιμές με 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 Function3. Αφού επικολλήσετε τον κωδικό στο Ενότητα (Κωδικός) παράθυρο, μεταβείτε στο κλικ Εργαλεία > αναφορές για να ανοίξετε το Αναφορές - VBAProject παράθυρο, ελέγξτε το Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft και στη συνέχεια κάντε κλικ στο OK κουμπί.
4. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
5. Τώρα πρέπει να εφαρμόσετε δύο συναρτήσεις ξεχωριστά για να επιστρέψετε τις διπλότυπες και τις μοναδικές τιμές από δύο κελιά τιμών διαχωρισμένων με κόμματα.
Επιστρέψτε διπλότυπη τιμή
Επιλέξτε ένα κελί για να εξάγετε τους διπλότυπους αριθμούς, σε αυτό το παράδειγμα, επιλέγω το κελί D2, εισάγω τον παρακάτω τύπο και πατάω το εισάγετε κλειδί για να λάβετε τους διπλότυπους αριθμούς μεταξύ των κελιών A2 και B2.
Επιλέξτε το κελί τύπου και σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να λάβετε τους διπλότυπους αριθμούς μεταξύ των κελιών στις άλλες σειρές.
=COMPARE(A2,B2,TRUE)
Επιστρέψτε μοναδικές αξίες
Επιλέξτε ένα κελί για να εξάγετε τους μοναδικούς αριθμούς, σε αυτό το παράδειγμα, επιλέγω το κελί E2, εισάγω τον παρακάτω τύπο και πατάω το εισάγετε κλειδί για να λάβετε τους μοναδικούς αριθμούς μεταξύ των κελιών A2 και B2.
Επιλέξτε το κελί τύπου και σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να λάβετε τους μοναδικούς αριθμούς μεταξύ των κελιών στις άλλες σειρές.
=COMPARE(A2,B2,FALSE)
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
