Πώς να αφαιρέσετε χαρακτήρες άλφα από κελιά στο Excel;
Ας υποθέσουμε ότι πρέπει να αφαιρέσετε όλους τους χαρακτήρες άλφα από μια περιοχή στο Excel, για παράδειγμα ένα στοιχείο σε ένα κελί μπορεί να είναι "Λουκάση 13654698745", Και θέλετε να είναι"13654698745", Πώς μπορείτε να αφαιρέσετε γρήγορα όλους τους χαρακτήρες άλφα από τα κελιά; Υπάρχουν καλές ιδέες για την αντιμετώπιση αυτού του προβλήματος;
Καταργήστε όλους τους χαρακτήρες άλφα από κελιά με κωδικό VBA
Για να αφαιρέσετε όλους τους χαρακτήρες άλφα με το Kutools για Excel με ένα κλικ
Καταργήστε όλους τους χαρακτήρες άλφα από κελιά με κωδικό VBA
Είναι δύσκολο να αφαιρέσετε χαρακτήρες άλφα χρησιμοποιώντας τη λειτουργία στο Excel, οπότε μπορείτε να χρησιμοποιήσετε τον κώδικα VBA για να τον λύσετε. Μπορείτε να καταργήσετε όλους τους χαρακτήρες άλφα με το VBA ως εξής βήματα.
1. κλικ Εργολάβος>Visual Basic ή πατήστε Alt + F11 για να ανοίξετε ένα νέο Microsoft Visual Basic για εφαρμογές θα εμφανιστεί το παράθυρο, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι εισαγάγετε τον ακόλουθο κωδικό:
VBA: Κατάργηση χαρακτήρων άλφα:
Sub RemoveAlphas()
'Updateby20131129
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xOut = ""
For i = 1 To Len(Rng.Value)
xTemp = Mid(Rng.Value, i, 1)
If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Then
xStr = ""
Else
xStr = xTemp
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
3. Στη συνέχεια κάντε κλικ στο κουμπί κουμπί για να εκτελέσετε τον κωδικό. Και ένα αναδυόμενο παράθυρο διαλόγου είναι να επιλέξετε ένα εύρος εργασίας, δείτε το στιγμιότυπο οθόνης:
.
4. κλικ OKκαι όλοι οι άλφα χαρακτήρες έχουν αφαιρεθεί.
Για να αφαιρέσετε όλους τους χαρακτήρες άλφα με το Kutools για Excel με ένα κλικ.
Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα
Εφαρμόστε αυτό το βοηθητικό πρόγραμμα κάνοντας κλικ Kutools > Εργαλεία κειμένου στην ομάδα επεξεργασίας > Διαγραφή χαρακτήρων, δείτε το στιγμιότυπο οθόνης:
Βήμα 1. Επιλέξτε το εύρος με το οποίο θέλετε να εργαστείτε.
Βήμα 2. Κάντε κλικ Kutools > Εργαλεία κειμένου στην ομάδα επεξεργασίας > Διαγραφή χαρακτήρωνκαι ελέγξτε το Alpha στο αναδυόμενο παράθυρο Διαγραφή χαρακτήρων διάλογος, δείτε το στιγμιότυπο οθόνης:
Βήμα 3. Κάντε κλικ Ok or Εφαρμογή για να αφαιρέσετε όλα τα άλφα στην περιοχή.
Αυτό το βοηθητικό πρόγραμμα μπορεί επίσης να διαγράψει αριθμητικούς χαρακτήρες, μη αριθμητικούς χαρακτήρες, μη εκτυπωτικούς χαρακτήρες και ούτω καθεξής.
Για περισσότερες πληροφορίες σχετικά με το Διαγραφή χαρακτήρων του Kutools για Excel, επισκεφθείτε: Διαγραφή χαρακτήρων.
Σχετικά άρθρα:
Καταργήστε μη αριθμητικούς χαρακτήρες από κελιά
Καταργήστε αριθμητικούς χαρακτήρες από κελιά
Καταργήστε μη εκτυπώσιμους χαρακτήρες από κελιά
Καταργήστε χαρακτήρες που δεν είναι άλφα από κελιά
Κατάργηση μη αλφαριθμητικών χαρακτήρων
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!