Как удалить алфавитные символы из ячеек в Excel?
Предположим, вам нужно удалить все алфавитные символы из диапазона в Excel. Например, данные в ячейке могут выглядеть как «lucase 13654698745», а вы хотите получить «13654698745». Как быстро удалить все буквы из ячеек? Существуют ли эффективные способы решения этой задачи?
Удаление всех алфавитных символов из ячеек с помощью кода VBA
Удаление всех алфавитных символов с помощью Kutools для Excel одним щелчком
 |  |  |
Удаление всех алфавитных символов из ячеек с помощью кода VBA
Удалить алфавитные символы с помощью стандартных функций Excel непросто, поэтому для этой задачи лучше использовать код VBA. Выполните следующие шаги, чтобы удалить все алфавитные символы с помощью VBA.
1. Нажмите Разработчик > Visual Basic или нажмите Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений. Затем выберите Вставка > Модуль и введите следующий код:
VBA: Удаление алфавитных символов:
Sub RemoveAlphas()
'Updateby20131129
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 = ""
Else
xStr = xTemp
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
3. Затем нажмите кнопку 
, чтобы запустить код. Появится диалоговое окно, в котором нужно выбрать диапазон для обработки (см. снимок экрана):
.
4. Нажмите ОК, и все алфавитные символы будут удалены.
Удалите все алфавитные символы в один клик с помощью Kutools для Excel.
Kutools для Excel: более чем 300 удобных надстроек для Excel, бесплатная пробная версия без ограничений на 30 дней.Скачать сейчас
Чтобы воспользоваться этой утилитой, нажмите Kutools > Текст > Удалить символы (см. снимок экрана):
Шаг 1. Выберите диапазон, с которым вы хотите работать.
Шаг 2. Нажмите Kutools > Инструменты для работы с текстом в группе Редактирование > Удалить символы и установите флажок «Алфавитные» в появившемся диалоговом окне Удалить символы (см. снимок экрана):
Шаг 3. Нажмите ОК или Применить, чтобы удалить все алфавитные символы в выбранном диапазоне.
Этот инструмент также позволяет удалять цифровые, недесятичные и непечатаемые символы и многое другое.
Более подробную информацию об инструменте Удалить символы из Kutools для Excel см. на странице: Удалить символы.
Связанные статьи:
Удаление нечисловых символов из ячеек
Удаление числовых символов из ячеек
Удаление непечатаемых символов из ячеек
Удаление неалфавитных символов из ячеек
Удаление не буквенно-цифровых символов
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек