Note: The other languages of the website are Google-translated. Back to English
Войти  \/ 
x
or
x
Регистрация  \/ 
x

or

Как удалить не буквенно-цифровые символы в Excel?

Предположим, есть ряд данных, например JAMES0898 # 4% ^ {}, который содержит не буквенно-цифровые символы на листе, и теперь вам просто нужно удалить не буквенно-цифровые символы и сохранить буквенно-цифровые символы. Например, JAMES0898 # 4% ^ {} > JAMES0898. Как быстро удалить эти не буквенно-цифровые символы в Excel?


Удалите не буквенно-цифровые символы с помощью кода VBA

С помощью следующего короткого кода VBA вы также можете удалить не буквенно-цифровые символы. Сделать это можно так:

1. Нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > модуль, а затем вставьте ниже код VBA в модуль:

VBA: удалить все не буквенно-цифровые символы

Sub RemoveNotAlphasNotNum()
'Updateby2014128
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.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3, Нажмите F5 ключ или щелкните Выполнить кнопку для выполнения кода.

4. Затем выберите диапазон, из которого вы хотите удалить все не буквенно-цифровые символы во всплывающем диалоговом окне, и щелкните значок OK кнопку.

Теперь все не буквенно-цифровые символы были удалены из выбранного диапазона. Смотрите скриншот:

2 щелчка мышью, чтобы удалить все не буквенно-цифровые символы с помощью замечательного инструмента

Обычно мы помещаем курсор в ячейку, а затем вручную удаляем не буквенно-цифровые символы. Если вы знакомы с VBA или функциями, определяемыми пользователем, вы можете закодировать их и удалить все не буквенно-цифровые символы сразу. Но здесь я порекомендую замечательный инструмент, функцию удаления символов из Kutools for Excel, который может удалять все виды символов всего за 2 клика! Полнофункциональная бесплатная 30-дневная пробная версия!

Удалите не буквенно-цифровые символы с помощью функции, определяемой пользователем

Вы также можете определить настраиваемую функцию для удаления всех не буквенно-цифровых символов из ячеек в Excel.

1, Нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > модуль, а затем вставьте приведенный ниже код в модуль:

Функция, определяемая пользователем: удаление всех не буквенно-цифровых символов

Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String

Dim xStrMode As String
Dim xInt As Integer
    xStrMode = "[A-Z.a-z 0-9]"
    xStrR = ""
    For xInt = 1 To Len(xStr)
        xCh = Mid(xStr, xInt, 1)
        If xCh Like xStrMode Then
            xStrR = xStrR & xCh
        End If
    Next
    DeleteNonAlphaNumeric = xStrR
End Function
    

3. Теперь вернитесь на рабочий лист, выберите пустую ячейку и введите формулу = DeleteNonAlphaNumeric (B3), а затем перетащите загрузку дескриптора автозаполнения, чтобы применить эту формулу к другим ячейкам.


Удалите не буквенно-цифровые символы с помощью Kutools for Excel

Для двух вышеуказанных методов вам необходимо знать коды, но, как новички в Excel, большинство из нас не может использовать код, поэтому здесь я дам вам простой способ сделать это.

Kutools for Excel- Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная 30-дневная пробная версия, кредитная карта не требуется! Get It Now

Если вы установили Kutools for Excel, выполните следующие действия:

1. Выберите диапазон, из которого нужно удалить не буквенно-цифровые символы, и нажмите Kutools > Текст > Удалить символы.

2, Затем Удалить символы появится диалоговое окно, только отметьте Не буквенно-цифровые и нажмите Ok кнопку.

Теперь все не буквенно-цифровые символы были удалены из текстовых строк.


Статьи по теме:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office / Excel 2007-2019 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dee · 4 years ago
    How do you remove the characters while keeping the space separator?
  • To post as a guest, your comment is unpublished.
    Mike Litoris · 7 years ago
    VBA method worked, but only works on the selected range. You cannot specify the output into a different range of cells than the input. So you must copy the source data into the target range, select the data, run the script and allow it to output to the default range. Also, the period (.) is not considered a special character, so if you want to remove those too, you'll need to search and replace.
  • To post as a guest, your comment is unpublished.
    Bryan Steven · 7 years ago
    Thanks for sharing, but still don't like the input-box method... :D