Note: The other languages of the website are Google-translated. Back to English

Как удалить только текст из ячеек, содержащих числа и текст в Excel?

Как показано на скриншоте ниже, для этих ячеек, смешанных с числами и текстами, как удалить все тексты и оставить только числа в ячейках? Методы, описанные в этой статье, могут вам помочь.

Удалять только текст из ячеек, содержащих числа и текст, с помощью пользовательской функции
Легко удаляйте только текст из ячеек, содержащих числа и текст, с помощью Kutools for Excel


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

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

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

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в Код: окно. Смотрите скриншот:

Код VBA: удалить только текст из ячеек, содержащих числа и текст

Function OnlyNums(strWord As String)
    Dim strChar As String
    Dim x As Integer
    Dim strTemp As String

    strTemp = ""
    Application.ScreenUpdating = False
    For x = 1 To Len(strWord)
        strChar = Mid(strWord, x, 1)
        If Asc(strChar) >= 48 And _
          Asc(strChar) <= 57 Then
            strTemp = strTemp & strChar
        End If
    Next
    Application.ScreenUpdating = True
    OnlyNums = Val(strTemp)
End Function

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then Cancel = True
End Sub

3. нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно.

4. Выберите пустую ячейку, введите формулу. = OnlyNums (A2) в панель формул, а затем нажмите Enter ключ для получения результата. Продолжая выбирать ячейку результата, перетащите ее маркер заполнения вниз, чтобы получить все результаты. Смотрите скриншот:

Внимание: В формуле. A2 - это ячейка, в которой вы удалите текст и сохраните только цифры. Пожалуйста, измените его по своему усмотрению.

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


Легко удаляйте только текст из ячеек, содержащих числа и текст, с помощью Kutools for Excel

Этот раздел будет рекомендовать Удалить символы полезности Kutools for Excel. С помощью этой утилиты вы можете удалить все нечисловые символы из ячеек всего несколькими щелчками мыши и оставить в ячейках только числа. Пожалуйста, сделайте следующее.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Выберите ячейки, в которых нужно удалить текст и оставить только числа, затем нажмите Кутулс > Текст > Удалить символы

2. в Удалить символы диалоговое окно, только отметьте Нечисловой поле, а затем щелкните OK кнопку.

Затем все нечисловые символы (тексты) немедленно удаляются из выбранных ячеек, как показано ниже.

  Если вы хотите получить бесплатную пробную версию (30-день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.


Связанная статья:


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

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

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (5)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Я использовал Excel в течение многих лет, но никогда раньше не использовал Visual Basic в электронных таблицах. Этот метод сработал с первого раза, просто следуя четким инструкциям выше, и сэкономил мне часы на очистке импортированного листа. Большое спасибо - очень признателен. Ваше здоровье
Этот комментарий был сведен к минимуму модератором на сайте
Привет вместе
Ich finde die VBA super und genau das was ich für meinen Job benötige. Jedoch eine Frage an euch Spezialisten, wenn ich führende Nullen habe dann funktioniert die VBA bei mir nicht, gibt's da einen Trick damit dies auch geht? Грюссе
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Роландс,
Извините, я не совсем понимаю, что вы имеете в виду. Вы хотите сохранить ведущие нули после удаления только текстов из ячеек?
Или вы можете загрузить сюда скриншот ваших данных, чтобы более понятно описать проблему.
Этот комментарий был сведен к минимуму модератором на сайте
Привет,

Si on veut conserver les virgules avec les chiffres, комментарий peut-on faire? Merci pour votre réponse
Этот комментарий был сведен к минимуму модератором на сайте
Привет Энцо,

Извините, я не совсем понимаю ваш вопрос. Для ясности прикрепите образец файла или снимок экрана с вашими данными и желаемыми результатами.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL