Wie entferne ich nicht numerische Zeichen aus Zellen in Excel?
Angenommen, Sie haben ein Arbeitsblatt mit vielen solcher Daten ABCD4578124YUIOHund Sie möchten nur die nicht numerischen Zeichen entfernen ABCDYUIOH Behalten Sie jedoch die numerischen Zeichen in Zellen. Natürlich können Sie diese Zeichen einzeln entfernen, aber genau hier können Sie die nicht numerischen Zeichen wie folgt schnell aus den Zellen entfernen:
Entfernen Sie nicht numerische Zeichen mit VBA-Code
Ein praktisches Werkzeug, um nicht numerische Zeichen mit einem Klick zu entfernen
Entfernen Sie nicht numerische Zeichen mit VBA-Code
Gehen Sie wie folgt vor, um nicht numerische Zeichen aus einem Bereich mit VBA-Code zu entfernen:
1. Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Entwickler:in / Unternehmen > Visual Basic öffnen Microsoft Visual Basic für Anwendungen Fenster. In dem Microsoft Visual Basic für Anwendungen Klicken Sie im Fenster Insert > ModulKopieren Sie anschließend die folgenden Codes und fügen Sie sie in das Modul ein:
VBA: Entfernen Sie alle nicht numerischen Zeichen
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 Sub2. Klicken Sie dann auf 
Schaltfläche zum Ausführen des Codes, Im Popup KutoolsforExcel Wählen Sie im Dialogfeld einen Bereich mit den nicht numerischen Zeichen aus, die Sie entfernen möchten, und klicken Sie dann auf OK Taste. Siehe Screenshot:
3. Dann werden alle nicht numerischen Zeichen im ausgewählten Bereich entfernt.
Wenn die Zahlen mit Dezimalstellen versehen sind, können Sie das folgende VBA verwenden:
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
Sie können die Ergebnisse wie folgt sehen: Screenshot:
Ein praktisches Werkzeug, um nicht numerische Zeichen mit einem Klick zu entfernen
Zum Entfernen nicht numerischer Zeichen in einem Bereich Kutools for Excel Zeichen entfernen Dienstprogramm kann es mit einem Klick erledigen.
| Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
Nach der Installation Kutools for ExcelBitte machen Sie wie folgt:
1. Markieren Sie den Bereich, in dem Sie nicht numerische Zeichen entfernen möchten. Klicken Kutoolen > Text > Zeichen entfernen.
2. In dem Zeichen entfernen Wählen Sie im Dialogfeld Nicht numerisch Option in der Zeichen entfernen Klicken Sie dann auf OK or Jetzt bewerben Taste. Und die nicht numerischen Zeichen werden sofort aus der Auswahl entfernt. Siehe Screenshot:
Klicken Sie hier, um Kutools für Excel herunterzuladen und jetzt kostenlos zu testen!
Für detailliertere Informationen über Zeichen entfernen von Kutools für Excel besuchen Sie bitte Beschreibung der Zeichenmerkmale entfernen.
Demo: Entfernen Sie numerische, alphabetische, nicht druckbare oder alphanumerische Zeichen aus Zellen
In Verbindung stehende Artikel:
- Entfernen Sie Alpha-Zeichen aus Zellen
- Entfernen Sie numerische Zeichen aus Zellen
- Entfernen Sie nicht druckbare Zeichen aus Zellen
- Entfernen Sie Nicht-Alpha-Zeichen aus Zellen
- Entfernen Sie nicht alphanumerische Zeichen
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
