За допомогою наведеного нижче короткого коду VBA ви також можете видалити нелітерально-цифрові символи. Ви можете зробити це так:

1. прес інший + F11 клавіші разом, щоб відкрити Microsoft Visual Basic для програм вікна.

2. клацання Insert > Модулі, а потім вставте нижче код 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 for Excel, яка може видаляти всі типи символів лише 2 клацання миші!

Ви також можете визначити власну функцію для видалення всіх нелітерально-цифрових символів із комірок у Excel.

1. Прес інший + F11 клавіші разом, щоб відкрити Microsoft Visual Basic для програм вікна.

2. Клацання Insert > Модулі, а потім вставте нижче код в Модуль:

Функція, визначена користувачем: Видаліть усі нелітерально-цифрові символи

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 днів, кредитна картка не потрібна! Get It Now

Якщо ви встановили Kutools для Excel, виконайте такі дії:

1. Виберіть діапазон, з якого потрібно видалити нелітерально-цифрові символи, та натисніть Кутулс > текст > Видалити символи.

2. Тоді а Видалити символи з'явиться діалогове вікно, лише поставте галочку Небуквено-цифрові та натисніть кнопку Ok кнопки.

Тепер усі нелітерально-цифрові символи були видалені з текстових рядків.