Как удалить только текст из ячеек, содержащих и числа, и текст, в Excel?
Как показано на снимке экрана ниже, как удалить весь текст из ячеек, содержащих смесь чисел и текста, оставив только числа? Методы, описанные в этой статье, помогут вам легко справиться с этой задачей.
Удаление только текста из ячеек, содержащих числа и текст, с помощью пользовательской функции
Легко удалите только текст из ячеек, содержащих числа и текст, с помощью Kutools для Excel
Удаление только текста из ячеек, содержащих числа и текст, с помощью пользовательской функции
Вы также можете воспользоваться приведённой ниже пользовательской функцией, чтобы удалить текст из указанных ячеек и оставить только числа.
1. Нажмите одновременно клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications выберите Вставка > Модуль. Затем скопируйте и вставьте приведённый ниже код 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. Нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic for Applications.
4. Выберите пустую ячейку, введите формулу =OnlyNums(A2) в строку формул и нажмите клавишу Enter, чтобы получить результат. Выделите ячейку с результатом и перетащите её маркер заполнения вниз, чтобы применить формулу ко всем строкам. См. снимок экрана:
Примечание: В формуле A2 — это ячейка, из которой будет удалён текст, а числа останутся. При необходимости измените её.
Теперь вы видите, что весь текст удалён, а в указанных ячейках остались только числа.
Легко удалите только текст из ячеек, содержащих числа и текст, с помощью Kutools для Excel
В этом разделе рекомендуется использовать утилиту Удалить определенные символы из Kutools для Excel. С её помощью вы сможете удалить все нечисловые символы из ячеек всего за несколько кликов, оставив только числа. Выполните следующие действия.
1. Выделите ячейки, из которых нужно удалить текст и оставить только числа, затем нажмите Kutools > Текст > Удалить определенные символы.
2. В диалоговом окне Удалить определенные символы установите флажок только напротив параметра Не цифры и нажмите кнопку OK.
Все нечисловые символы немедленно удаляются из выделенных ячеек, как показано на снимке экрана ниже.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Связанная статья:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек