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