Πώς να αφαιρέσετε μη αριθμητικούς χαρακτήρες από κελιά στο Excel;
Ας υποθέσουμε ότι έχετε ένα φύλλο εργασίας με πολλά τέτοια δεδομένα ABCD4578124YUIOHκαι θέλετε μόνο να καταργήσετε τους μη αριθμητικούς χαρακτήρες ABCDYUIOH αλλά διατηρήστε τους αριθμητικούς χαρακτήρες στα κελιά. Φυσικά, μπορείτε να καταργήσετε αυτούς τους χαρακτήρες ένα προς ένα, αλλά εδώ μπορείτε να απαλλαγείτε από τους αριθμητικούς χαρακτήρες από τα κελιά γρήγορα ως εξής:
Καταργήστε μη αριθμητικούς χαρακτήρες με κωδικό VBA
Ένα εύχρηστο εργαλείο για την αφαίρεση μη αριθμητικών χαρακτήρων με ένα κλικ
Καταργήστε μη αριθμητικούς χαρακτήρες με κωδικό VBA
Για να καταργήσετε μη αριθμητικούς χαρακτήρες από μια περιοχή με κώδικα VBA, κάντε τα εξής:
1. Πατήστε Εργολάβος > Visual Basic για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε και επικολλήστε τους ακόλουθους κωδικούς στη λειτουργική μονάδα:
VBA: Κατάργηση όλων των μη αριθμητικών χαρακτήρων
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
2. Στη συνέχεια, κάντε κλικ στο κουμπί για να εκτελέσετε τον κωδικό, στο αναδυόμενο παράθυρο KutoolsforExcel πλαίσιο διαλόγου, επιλέξτε ένα εύρος με τους μη αριθμητικούς χαρακτήρες που θέλετε να καταργήσετε και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια, καταργούνται όλοι οι μη αριθμητικοί χαρακτήρες στο επιλεγμένο εύρος.
Εάν οι αριθμοί με δεκαδικά ψηφία, μπορείτε να χρησιμοποιήσετε το ακόλουθο VBA:
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
Μπορείτε να δείτε τα αποτελέσματα όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
Ένα εύχρηστο εργαλείο για την αφαίρεση μη αριθμητικών χαρακτήρων με ένα κλικ
Για την κατάργηση μη αριθμητικών χαρακτήρων σε μια περιοχή, Kutools για Excel'S Κατάργηση χαρακτήρων βοηθητικό πρόγραμμα μπορεί να το κάνει με ένα κλικ.
Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:
1. Επισημάνετε το εύρος που θέλετε να καταργήσετε μη αριθμητικούς χαρακτήρες. Κάντε κλικ Kutools > Κείμενο > Κατάργηση χαρακτήρων.
2. Στην Κατάργηση χαρακτήρων πλαίσιο ελέγχου, ελέγξτε το Μη αριθμητικό επιλογή του Κατάργηση χαρακτήρων ενότητα και, στη συνέχεια, κάντε κλικ στο OK or Εφαρμογή κουμπί. Και οι μη αριθμητικοί χαρακτήρες αφαιρούνται αμέσως από την επιλογή. Δείτε το στιγμιότυπο οθόνης:
Κάντε κλικ για λήψη του Kutools για Excel και δωρεάν δοκιμή τώρα!
Για περισσότερες πληροφορίες σχετικά με το Κατάργηση χαρακτήρων του Kutools για Excel, επισκεφθείτε Κατάργηση περιγραφή χαρακτηριστικών χαρακτήρων.
Επίδειξη: Κατάργηση αριθμητικών, αλφαβητικών, μη εκτυπώσιμων ή αλφαριθμητικών χαρακτήρων από κελιά
Σχετικά άρθρα:
- Κατάργηση χαρακτήρων άλφα από κελιά
- Καταργήστε αριθμητικούς χαρακτήρες από κελιά
- Καταργήστε μη εκτυπώσιμους χαρακτήρες από κελιά
- Καταργήστε χαρακτήρες που δεν είναι άλφα από κελιά
- Κατάργηση μη αλφαριθμητικών χαρακτήρων
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!