Как извлечь числа из смешанных буквенно-цифровых текстовых строк в Excel?
В этом руководстве представлены три метода извлечения чисел из строки смешанного буквенно-цифрового текста в Excel.
Извлечение чисел из смешанных буквенно-цифровых текстовых строк с помощью формулы
Извлечение чисел из смешанных буквенно-цифровых текстовых строк с кодом VBA
Легко извлекайте числа из смешанных буквенно-цифровых текстовых строк с помощью удивительного инструмента
Извлечение чисел из смешанных буквенно-цифровых текстовых строк с помощью формулы
Вы можете применить приведенную ниже формулу для извлечения чисел из любого места текстовой строки в Excel.
1. Выберите пустую ячейку для вывода извлеченных чисел, введите в нее формулу ниже и нажмите Enter ключ. Затем перетащите маркер автозаполнения вниз, чтобы применить формулу к другим ячейкам.
=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {"0","1","2","3","4","5","6","7","8","9"}, "")))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2,ROW(INDIRECT("$1:$"&LEN(A2))),1))* ROW(INDIRECT("$1:$"&LEN(A2))),0), ROW(INDIRECT("$1:$"&LEN(A2))))+1,1) * 10^ROW(INDIRECT("$1:$"&LEN(A2)))/10),"")
Внимание: В формуле A1 - это ячейка, в которой находится текстовая строка, из которой вы хотите извлечь числа. Пожалуйста, измените его в соответствии с вашими потребностями.
Затем числа извлекаются из любого места текстовой строки в указанных ячейках, как показано на скриншоте выше.
Сохраняйте числа только в смешанных буквенно-цифровых текстовых строках с кодом VBA
Следующий код VBA может помочь вам удалить все нечисловые символы из указанного диапазона и сохранить только числа в ячейках. Пожалуйста, сделайте следующее.
Внимание: Поскольку код напрямую исключает исходный диапазон, сохраните копию исходного диапазона на случай потери данных.
1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в окно модуля.
Код VBA: удалить все нечисловые символы из ячеек
Sub GetNumbers()
'Updated by Extendoffice 20210125
Dim xRegEx As Object
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pease select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRegEx = CreateObject("VBScript.RegExp")
With xRegEx
.Pattern = "\D+"
.IgnoreCase = True
.Global = True
End With
xRg.NumberFormat = "@"
For Each xCell In xRg
xCell.Value = xRegEx.Replace(xCell.Value, "")
Next
Set xRegEx = Nothing
End Sub3. нажмите F5 ключ для запуска кода. Потом Kutools for Excel появится диалоговое окно, выберите диапазон, содержащий смешанные буквенно-цифровые текстовые строки, вы оставите только числа, и нажмите кнопку OK .
Теперь все нечисловые символы в выбранном диапазоне были немедленно удалены, и остались только числа. Смотрите скриншот:
Легко извлекайте числа из смешанных буквенно-цифровых текстовых строк с помощью Kutools for Excel
В этом разделе рекомендуется утилита извлечения текста из Kutools for Excel. С помощью этой утилиты можно легко обрабатывать извлечение чисел из текстовой строки.
Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.
1. Нажмите Кутулс > Текст > Извлечь текст для включения функции.
2. в Извлечь текст диалоговое окно, выполните следующие настройки.
кнопка для выбора диапазона ячеек, из которого будет извлекаться текст;
Примечание: Проверить Вставить как формулу поле в нижнем левом углу диалогового окна вставит результат в виде формулы в ячейки результатов. Когда значение указанной ячейки изменяется, результат обновляется автоматически.
3. в Извлечь текст диалоговом окне выберите пустую ячейку для вывода извлеченного текста, а затем щелкните ОК.
Затем извлекаются числа из любой позиции в текстовой строке. Смотрите скриншот:
Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
