Za pomocą następującego krótkiego kodu VBA możesz również usunąć znaki inne niż alfanumeryczne. Możesz to zrobić w ten sposób:

1. naciśnij inny + F11 klucze razem, aby otworzyć Microsoft Visual Basic dla aplikacji okno.

2. kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do modułu:

VBA: Usuń wszystkie znaki niealfanumeryczne

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. naciśnij F5 lub kliknij run przycisk, aby wykonać kod.

4. Następnie wybierz zakres, z którego chcesz usunąć wszystkie znaki niealfanumeryczne w wyskakującym oknie dialogowym i kliknij przycisk OK przycisk.

Teraz wszystkie znaki niealfanumeryczne zostały usunięte z wybranego zakresu. Zobacz zrzut ekranu:

2 kliknięcia, aby usunąć wszystkie znaki niealfanumeryczne za pomocą niesamowitego narzędzia

Zwykle umieszczamy kursor w komórce, a następnie ręcznie usuwamy znaki niealfanumeryczne jeden po drugim. Jeśli znasz język VBA lub funkcje zdefiniowane przez użytkownika, możesz je zakodować i zbiorczo usunąć wszystkie znaki niealfanumeryczne. Ale tutaj polecę niesamowite narzędzie, funkcję Usuń znaki w Kutools for Excel, która może usunąć wszystkie rodzaje znaków za pomocą tylko 2 kliknięć!

Możesz również zdefiniować funkcję niestandardową, aby usunąć wszystkie znaki niealfanumeryczne z komórek w programie Excel.

1. naciśnij inny + F11 klucze razem, aby otworzyć Microsoft Visual Basic dla aplikacji okno.

2. Kliknij wstawka > Moduł, a następnie wklej poniższy kod do modułu:

Funkcja zdefiniowana przez użytkownika: Usuń wszystkie znaki niealfanumeryczne

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
    

3. Teraz wróć do arkusza roboczego, wybierz pustą komórkę i wprowadź formułę = DeleteNonAlphaNumeric (B3), a następnie przeciągnij uchwyt pobierania autouzupełniania, aby zastosować tę formułę do innych komórek.

Dzięki powyższym dwóm metodom musisz znać kody, ale jako początkujący w Excelu większość z nas nie może używać kodu, więc tutaj dam ci łatwy sposób na zrobienie tego.

Kutools dla programu Excel- Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatna 30-dniowa, bez karty kredytowej! Zdobądź To Teraz

Jeśli zainstalowałeś Kutools dla programu Excel, zrób to w następujący sposób:

1. Wybierz zakres, z którego chcesz usunąć znaki inne niż alfanumeryczne, i kliknij Kutools > Tekst > Usuń znaki.

2. Następnie Usuń znaki pojawi się okno dialogowe, tylko zaznacz Niealfanumeryczne opcję i kliknij przycisk Ok przycisk.

Teraz wszystkie znaki niealfanumeryczne zostały usunięte z ciągów tekstowych.