Как удалить не буквенно-цифровые символы в Excel?
Предположим, есть ряд данных, например JAMES0898 # 4% ^ {}, который содержит не буквенно-цифровые символы на листе, и теперь вам просто нужно удалить не буквенно-цифровые символы и сохранить буквенно-цифровые символы. Например, JAMES0898 # 4% ^ {} > JAMES0898. Как быстро удалить эти не буквенно-цифровые символы в Excel?
- Удалите не буквенно-цифровые символы с помощью кода VBA
- Удалите не буквенно-цифровые символы с помощью функции, определяемой пользователем
- Удалите не буквенно-цифровые символы с помощью Kutools for Excel
Удалите не буквенно-цифровые символы с помощью кода VBA
С помощью следующего короткого кода 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 ключ или щелкните Run кнопку для выполнения кода.
4. Затем выберите диапазон, из которого вы хотите удалить все не буквенно-цифровые символы во всплывающем диалоговом окне, и щелкните значок OK .
Теперь все не буквенно-цифровые символы были удалены из выбранного диапазона. Смотрите скриншот:
2 щелчка мышью, чтобы удалить все не буквенно-цифровые символы с помощью замечательного инструмента
Обычно мы помещаем курсор в ячейку, а затем вручную удаляем не буквенно-цифровые символы. Если вы знакомы с VBA или функциями, определяемыми пользователем, вы можете закодировать их и удалить все не буквенно-цифровые символы сразу. Но здесь я порекомендую замечательный инструмент, функцию удаления символов из Kutools for 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), а затем перетащите загрузку дескриптора автозаполнения, чтобы применить эту формулу к другим ячейкам.
Удалите не буквенно-цифровые символы с помощью Kutools for Excel
Для двух вышеуказанных методов вам необходимо знать коды, но, как новички в Excel, большинство из нас не может использовать код, поэтому здесь я дам вам простой способ сделать это.
Kutools for Excel- Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная 30-дневная пробная версия, кредитная карта не требуется! Get It Now
Если вы установили Kutools for Excel, выполните следующие действия:
1. Выберите диапазон, из которого нужно удалить не буквенно-цифровые символы, и нажмите Кутулс > Текст > Удалить символы.
2, Затем Удалить символы появится диалоговое окно, только отметьте Не буквенно-цифровые и нажмите Ok .
Теперь все не буквенно-цифровые символы были удалены из текстовых строк.
Статьи по теме:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!