Със следния кратък VBA код можете да премахнете и небуквено-цифровите знаци. Можете да го направите по следния начин:

1. Натиснете Друг + F11 ключове заедно, за да отворите Microsoft Visual Basic за приложения прозорец.

2. кликване Поставете > Модулии след това поставете по-долу VBA кода в модула:

VBA: Премахнете всички знаци, които не са буквено-цифрови

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, Натиснете F5 клавиша или щракнете върху бягане бутон за изпълнение на кода.

4. След това изберете диапазон, който искате да премахнете всички небуквено-цифрови знаци в изскачащия диалогов прозорец, и щракнете върху OK бутон.

Сега всички небуквено-цифрови знаци са изтрити от избрания диапазон. Вижте екранна снимка:

2 щраквания за премахване на всички небуквено-цифрови знаци чрез невероятен инструмент

Обикновено поставяме курсор в клетка и след това ръчно премахваме небуквено-цифрови знаци един по един. Ако сте запознати с VBA или потребителски дефинирани функции, можете да го кодирате и да премахнете групово всички небуквено-цифрови знаци. Но тук ще препоръчам невероятен инструмент, функцията за премахване на знаци на Kutools за Excel, която може да премахне всички видове знаци само с 2 кликвания!

Можете също така да дефинирате персонализирана функция за премахване на всички небуквено-цифрови знаци от клетки в Excel.

1, Натиснете Друг + F11 ключове заедно, за да отворите Microsoft Visual Basic за приложения прозорец.

2. Щракнете Поставете > Модулии след това поставете кода по-долу в модула:

Дефинирана от потребителя функция: Премахнете всички небуквено-цифрови знаци

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. Сега се върнете към работния лист, изберете празна клетка и въведете формулата =DeleteNonAlphaNumeric(B3), и след това плъзнете изтеглянето на манипулатора за автоматично попълване, за да приложите тази формула към други клетки.

С горните два метода трябва да знаете кодовете, но като начинаещи в Excel, повечето от нас не могат да използват кода, така че тук ще ви дам лесен начин да го направите.

Kutools за Excel- Включва повече от 300 удобни инструмента за Excel. Пълен безплатен пробен период за 30 дни, не се изисква кредитна карта! Вземи Го Сега

Ако сте инсталирали Kutools за Excel, моля, направете го по следните стъпки:

1. Изберете диапазона, от който трябва да премахнете небуквено-цифрови знаци, и щракнете Kutools > Текст > Премахване на символи.

2. Тогава Изтриване на символи ще се появи диалогов прозорец, само проверете Не е буквено-цифров и щракнете върху Ok бутон.

Сега всички небуквено-цифрови символи са изтрити от текстовите низове.