Как да премахнете нецифрови знаци от клетки в Excel?
Да предположим, че имате работен лист с много такива данни ABCD4578124YUIOHи искате да премахнете само нецифровите знаци ABCDYUIOH но запазете цифровите знаци в клетките. Разбира се, можете да премахнете тези знаци един по един, но точно тук можете бързо да се отървете от нецифровите знаци от клетките, както следва:
Премахнете нецифровите знаци с VBA код
Удобен инструмент за премахване на нецифрови знаци с едно щракване
Премахнете нецифровите знаци с VBA код
За да премахнете нецифрови знаци от диапазон с VBA код, моля, направете следното:
1. Кликнете Софтуерен Инженер > Visual Basic за да отворите 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, След това кликнете върху бутон за изпълнение на кода, в изскачащия прозорец Kutools за Excel изберете диапазон с нецифровите знаци, които искате да премахнете, и след това щракнете върху 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 за ExcelЕ Премахване на символи помощната програма може да го направи с едно щракване.
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Маркирайте диапазона, който искате да премахнете нецифровите знаци. Кликнете Kutools > Текст > Премахване на символи.
2. В Премахване на символи диалоговия прозорец, проверете Нечислови опция в Премахване на символи и след това щракнете върху OK or Добавете Обява бутон. А нецифровите знаци се премахват незабавно от селекцията. Вижте екранна снимка:
Щракнете, за да изтеглите Kutools за Excel и безплатна пробна версия сега!
За по - подробна информация за Премахване на символи на Kutools за Excel, моля посетете Премахнете описание на характеристиките на знаците.
Демонстрация: Премахване на цифрови, азбучни, непечатаеми или буквено-цифрови знаци от клетките
Още по темата:
- Премахнете буквените знаци от клетките
- Премахнете цифровите знаци от клетките
- Премахнете непечатаемите знаци от клетките
- Премахване на небуквени знаци от клетките
- Премахване на небуквено-цифрови знаци
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!