Как удалить небуквенно-числовые символы в Excel?

С помощью следующего короткого кода VBA вы также можете удалить небуквенно-числовые символы. Вот как это сделать:

1. Нажмите клавиши Alt + 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. Нажмите клавиши Alt + 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 кнопку.

Теперь все небуквенно-числовые символы были удалены из текстовых строк.