Πώς να αφαιρέσετε διπλούς χαρακτήρες ή λέξεις στη συμβολοσειρά ενός κελιού;
Ας υποθέσουμε ότι υπάρχουν διπλοί χαρακτήρες ή λέξεις σε κάθε κελί και θέλετε να καταργήσετε τα διπλότυπα και να αφήσετε μόνο μοναδικούς χαρακτήρες ή λέξεις. Πώς θα μπορούσατε να λύσετε αυτό το πρόβλημα στο 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 υποδεικνύει το κελί που θέλετε να χρησιμοποιήσετε και το κόμμα (,) σημαίνει το σημείο στίξης που διαχωρίζει τις λέξεις σε ένα κελί, μπορείτε να το αλλάξετε σε οποιαδήποτε άλλα σημεία στίξης ανάλογα με τις ανάγκες σας.
Τα καλύτερα εργαλεία παραγωγικότητας του Office
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
- Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
- Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
- Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
- Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
- Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
- Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
- Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
- Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
- Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2019 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
