Как удалить нечисловые символы из ячеек в Excel?
Предположим, у вас есть рабочий лист с большим количеством таких данных. ABCD4578124YUIOH, и вы хотите удалить только нечисловые символы ABCDYUIOH но оставьте числовые символы в ячейках. Конечно, вы можете удалить эти символы один за другим, но прямо здесь вы можете быстро избавиться от нечисловых символов из ячеек следующим образом:
Удалите нечисловые символы с кодом VBA
Удобный инструмент для удаления нечисловых символов одним щелчком мыши
Удалите нечисловые символы с кодом VBA
Чтобы удалить нечисловые символы из диапазона с кодом VBA, сделайте следующее:
1. Нажмите Застройщик > Визуальный Бейсик для открытия Microsoft Visual Basic для приложений окно. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули, а затем скопируйте и вставьте в модуль следующие коды:
VBA: удалить все нечисловые символы
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
2, Затем нажмите кнопка для запуска кода, во всплывающем KutoolsforExcel диалоговом окне выберите диапазон с нечисловыми символами, которые вы хотите удалить, а затем щелкните значок OK кнопка. Смотрите скриншот:
3. Затем все нечисловые символы в выбранном диапазоне удаляются.
Если числа с десятичными точками, можно использовать следующий VBA:
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
Вы можете увидеть результаты, как показано на скриншоте ниже:
Удобный инструмент для удаления нечисловых символов одним щелчком мыши
Чтобы удалить нечисловые символы в диапазоне, Kutools for ExcelАвтора Удалить символы Утилита может сделать это одним щелчком мыши.
Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
После установки Kutools for Excel, пожалуйста, сделайте следующее:
1. Выделите диапазон, в котором вы хотите удалить нечисловые символы. Нажмите Кутулс > Текст > Удалить символы.
2. В Удалить символы диалоговое окно, проверьте Нечисловой вариант в Удалить символы раздел, а затем щелкните OK or Применить кнопка. И нечисловые символы немедленно удаляются из выделения. Смотрите скриншот:
Нажмите, чтобы загрузить Kutools for Excel и бесплатную пробную версию сейчас!
Для получения более подробной информации о Удалить символы Kutools for Excel, пожалуйста, посетите Удаление описания характеристик персонажей.
Демонстрация: удаление из ячеек цифровых, буквенных, непечатаемых или буквенно-цифровых символов
Статьи по теме:
- Удалить буквенные символы из ячеек
- Удалить числовые символы из ячеек
- Удалить непечатаемые символы из ячеек
- Удалить неальфа-символы из ячеек
- Удалите не буквенно-цифровые символы
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!