Как удалить из 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. В появившемся диалоговом окне выберите диапазон, из которого нужно удалить все неалфавитно-цифровые символы, и нажмите кнопку ОК.

Теперь все неалфавитно-цифровые символы удалены из «Выберите диапазон». См. снимок экрана:

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. Появится диалоговое окно Удаление символов. Установите флажок напротив параметра Неалфавитно-цифровые и нажмите кнопку ОК.

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