Как удалить из ячеек Excel все символы, кроме букв?
Допустим, у вас есть диапазон данных, например Jacob "001" @#$%, и вы хотите удалить все неалфавитные символы из строки, оставив только Jacob. Как быстро удалить все неалфавитные символы из ячеек в Excel?
Удаление неалфавитных символов из ячеек с помощью кода VBA
Быстрое удаление неалфавитных символов из ячеек с помощью Kutools для Excel
Удаление неалфавитных символов из ячеек с помощью кода VBA
С помощью кода VBA можно удалить неалфавитные символы и оставить только алфавитные символы (a–z)в ячейках, выполнив следующие шаги:
1. Выделите диапазон, из которого нужно удалить все неалфавитные символы.
2. Нажмите Разработчик > Visual Basic — откроется новое окно Microsoft Visual Basic для приложений. Затем нажмите Вставка > Модуль и введите следующий код в окне Модуль:
VBA: удаление всех неалфавитных символов из ячеек
Sub RemoveNotAlphas()
'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.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub3. Затем нажмите кнопку 
, чтобы запустить код. Появится диалоговое окно, в котором нужно выбрать диапазон для удаления всех неалфавитных символов. См. снимок экрана:
4. Затем нажмите ОК, и все неалфавитные символы будут удалены. См. снимок экрана:
 |  |  |
Быстрое удаление неалфавитных символов из ячеек с помощью Kutools для Excel
Если вы не хотите удалять все неалфавитные символы с помощью макроса VBA, воспользуйтесь инструментом Удалить символы из Kutools для Excel.
Kutools для Excel: более чем 300 удобных надстроек для Excel, бесплатная пробная версия без ограничений на 30 дней.Получить сейчас
После установки Kutools для Excel вы сможете легко и удобно удалить все неалфавитные символы из диапазона ячеек.
1. Выделите диапазон, из которого нужно удалить все неалфавитные символы.
2. Нажмите Kutools > Текст > Удалить символы.
3. Появится диалоговое окно Удалить символы. Установите флажок напротив параметра Неалфавитные символы в диалоговом окне Удалить символы. Одновременно вы сможете просмотреть результат в области Предварительный просмотр. См. снимок экрана:
4. Затем нажмите ОК или Применить. Все неалфавитные символы будут удалены.
Этот инструмент также позволяет удалять числовые символы, нечисловые символы, непечатаемые символы и многое другое. Подробную информацию об инструменте Удалить символы см. в разделе Описание функции «Удалить символы».
Связанные статьи:
- Удалить алфавитные символы из ячеек
- Удалить нечисловые символы из ячеек
- Удалить числовые символы из ячеек
- Удалить непечатаемые символы из ячеек
- Быстро удалить разрывы строк
- Удалить неалфавитно-цифровые символы
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек