Як видалити нечислові символи з комірок у 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 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 for ExcelАвтора Видалити символи Утиліта може зробити це одним клацанням миші.

після установки Kutools for Excel, будь ласка, виконайте наведені нижче дії:

1. Виділіть діапазон, який потрібно видалити нечисловими символами. Клацніть Кутулс > текст > Видалити символи.

2, в Видалити символи діалогове вікно, перевірте Нечислові опція в Видалити символи , а потім клацніть на OK or Застосовувати кнопку. І нечислові символи негайно видаляються з виділення. Дивіться знімок екрана:

Натисніть, щоб завантажити Kutools for Excel і безкоштовна пробна версія зараз!

Для отримання більш детальної інформації про Видалити символи of Kutools for Excel, Будь ласка, відвідайте Видалити опис функцій символів.

Демонстрація: Видаліть із комірок числові, алфавітні, недруковані або буквено-цифрові символи

Статті по темі:

• Видаліть букви з клітинок
• Видаліть числові символи з комірок
• Видаліть символи, що не друкуються, з комірок
• Видаліть із клітинок символи, що не містять алфавіту
• Видаліть буквено-цифрові символи

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools for Excel Вирішує більшість ваших проблем і підвищує вашу продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...