Wie entfernt man nicht-alphanumerische Zeichen in Excel?

Mit dem folgenden kurzen VBA-Code können Sie auch die nicht-alphanumerischen Zeichen entfernen. Sie können dies wie folgt tun:

1. Drücken Sie gleichzeitig die Tasten Alt + F11 , um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie dann den folgenden VBA-Code in das Modul ein:

VBA: Alle nicht-alphanumerischen Zeichen entfernen

Sub RemoveNotAlphasNotNum()
'Updateby2014128
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.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen , um den Code auszuführen.

4Wählen Sie dann einen Bereich aus, aus dem Sie alle nicht-alphanumerischen Zeichen im erscheinenden Dialogfeld entfernen möchten, und klicken Sie auf OK Schaltfläche.

Jetzt wurden alle nicht-alphanumerischen Zeichen aus dem ausgewählten Bereich gelöscht. Siehe Screenshot:

2 Klicks, um alle nicht-alphanumerischen Zeichen mit einem erstaunlichen Tool zu entfernen

Normalerweise setzen wir den Cursor in eine Zelle und entfernen dann manuell nacheinander die nicht-alphanumerischen Zeichen. Wenn Sie sich mit VBA oder benutzerdefinierten Funktionen auskennen, können Sie den Code schreiben und alle nicht-alphanumerischen Zeichen auf einmal entfernen. Aber hier möchte ich Ihnen ein fantastisches Tool empfehlen: die Funktion Bestimmte Zeichen löschen von Kutools für Excel, mit der Sie mit nur 2 Klicks verschiedene Arten von Zeichen entfernen können!

Sie können auch eine benutzerdefinierte Funktion definieren, um alle nicht-alphanumerischen Zeichen aus Zellen in Excel zu entfernen.

1. Drücken Sie gleichzeitig die Tasten Alt + F11 , um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie dann den folgenden Code in das Modul ein:

Benutzerdefinierte Funktion: Alle nicht-alphanumerischen Zeichen entfernen

Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String

Dim xStrMode As String
Dim xInt As Integer
    xStrMode = "[A-Z.a-z 0-9]"
    xStrR = ""
    For xInt = 1 To Len(xStr)
        xCh = Mid(xStr, xInt, 1)
        If xCh Like xStrMode Then
            xStrR = xStrR & xCh
        End If
    Next
    DeleteNonAlphaNumeric = xStrR
End Function
    

3Gehen Sie nun zurück zum Arbeitsblatt, wählen Sie eine leere Zelle aus und geben Sie die Formel ein =DeleteNonAlphaNumeric(B3)und ziehen Sie dann den AutoFill-Griff nach unten, um diese Formel auf andere Zellen anzuwenden.

Bei den oben genannten zwei Methoden müssen Sie die Codes kennen, aber als Excel-Anfänger können die meisten von uns den Code nicht verwenden, daher zeige ich Ihnen hier eine einfache Möglichkeit, dies zu tun.

Kutools für Excel - Enthält mehr als 300 praktische Tools für Excel. Vollständige kostenlose Testversion 30-Tage, keine Kreditkarte erforderlich! Jetzt herunterladen

Wenn Sie Kutools für Excel installiert haben, führen Sie bitte die folgenden Schritte aus:

1Wählen Sie den Bereich aus, aus dem Sie nicht-alphanumerische Zeichen entfernen möchten, und klicken Sie auf Kutools > Text > Bestimmte Zeichen löschen.

2Dann wird ein Zeichen löschen Dialogfeld erscheinen, aktivieren Sie nur die Option Nicht-alphanumerisch und klicken Sie auf die Schaltfläche OK Schaltfläche.

Jetzt wurden alle nicht-alphanumerischen Zeichen aus den Textzeichenfolgen gelöscht.