Ας υποθέσουμε ότι υπάρχουν διπλοί χαρακτήρες ή λέξεις σε κάθε κελί και θέλετε να καταργήσετε τα διπλότυπα και να αφήσετε μόνο μοναδικούς χαρακτήρες ή λέξεις. Πώς θα μπορούσατε να λύσετε αυτό το πρόβλημα στο Excel;
Καταργήστε διπλούς χαρακτήρες συμβολοσειράς κειμένου με τη λειτουργία που καθορίζεται από το χρήστη
Καταργήστε διπλούς χαρακτήρες συμβολοσειράς κειμένου με τη λειτουργία που καθορίζεται από το χρήστηΕάν έχετε μια λίστα συμβολοσειρών κειμένου, τώρα, πρέπει να καταργήσετε τους διπλούς χαρακτήρες όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Εδώ, μπορώ να μιλήσω για έναν κωδικό VBA για να το αντιμετωπίσω.
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Κατάργηση διπλών χαρακτήρων συμβολοσειράς κειμένου σε ένα κελί
Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
xChar = VBA.Mid(xValue, i, 1)
If xDic.Exists(xChar) Then
Else
xDic(xChar) = ""
xOutValue = xOutValue & xChar
End If
Next
RemoveDupes1 = xOutValue
End Function
3. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό, επιστρέψτε στο φύλλο εργασίας και εισαγάγετε αυτόν τον τύπο = removeupes1 (A2) (A2 είναι το κελί δεδομένων από το οποίο θέλετε να καταργήσετε διπλότυπα) σε ένα κενό κελί εκτός από τα δεδομένα σας, δείτε το στιγμιότυπο οθόνης:
4. Και, στη συνέχεια, σύρετε τη λαβή πλήρωσης στα κελιά εύρους που θέλετε να εφαρμόσετε αυτόν τον τύπο, όλοι οι διπλότυποι χαρακτήρες έχουν αφαιρεθεί αμέσως από κάθε κελί.
Καταργήστε τις διπλές λέξεις που διαχωρίζονται με σημεία στίξης με τη λειτουργία καθορισμένη από το χρήστηΕάν υπάρχουν κάποιες λέξεις που χωρίζονται από ορισμένα σημεία στίξης σε ένα κελί, μπορείτε επίσης να καταργήσετε τις διπλές λέξεις όπως θέλετε. Κάντε τα παρακάτω βήματα:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Κατάργηση διπλών λέξεων που διαχωρίζονται με σημεία στίξης ενός κελιού
Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
Dim x
'Updateby Extendoffice
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each x In Split(txt, delim)
If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
Next
If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
End With
End Function
3. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό, επιστρέψτε στο φύλλο εργασίας και εισαγάγετε αυτόν τον τύπο = RemoveDupes2 (A2, ",") σε ένα κενό κελί δίπλα στα δεδομένα σας, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια, αντιγράψτε τον τύπο στα κελιά που χρειάζεστε και όλες οι διπλότυπες λέξεις έχουν αφαιρεθεί από κάθε κελί. Δείτε το στιγμιότυπο οθόνης:
Note: Στον παραπάνω τύπο, A2 υποδεικνύει το κελί που θέλετε να χρησιμοποιήσετε και το κόμμα (,) σημαίνει το σημείο στίξης που διαχωρίζει τις λέξεις σε ένα κελί, μπορείτε να το αλλάξετε σε οποιαδήποτε άλλα σημεία στίξης ανάλογα με τις ανάγκες σας.
