Как да извлечете числа от смесени буквено-цифрови текстови низове в Excel?
Този урок предоставя три метода за подпомагане на извличането на числа от смесен буквено-цифров текстов низ в Excel.
Извличане на числа от смесени буквено-цифрови текстови низове с формула
Извличайте числа от смесени буквено-цифрови текстови низове с VBA код
Извличайте лесно числа от смесени буквено-цифрови текстови низове с невероятен инструмент
Извличане на числа от смесени буквено-цифрови текстови низове с формула
Можете да приложите формулата по-долу, за да извлечете числа от всяко място в текстов низ в Excel.
1. Изберете празна клетка, за да изведете извлечените числа, въведете формулата по-долу в нея и натиснете Въведете ключ. След това плъзнете манипулатора за автоматично попълване надолу, за да приложите формулата към други клетки.
=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 за Excel изскача диалогов прозорец, моля, изберете диапазона, който съдържа смесените буквено-цифрови текстови низове, ще запазите само числата, и щракнете върху OK бутон.
Сега всички нечислови знаци в избрания диапазон са премахнати незабавно и са запазени само числата. Вижте екранна снимка:
Лесно извличайте числа от смесени буквено-цифрови текстови низове с Kutools за Excel
Този раздел препоръчва помощната програма за извличане на текст на Kutools за Excel. С тази помощна програма извличането на числа от текстов низ може да бъде лесно за работа.
Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.
1. кликване Kutools > Текст > Извличане на текст за да активирате функцията.
2. В Извличане на текст диалогов прозорец, моля, направете настройките по-долу.
бутон за избор на диапазон от клетки, от който ще извлечете текст;
Забележка: Проверете Вмъкване като формула в долния ляв ъгъл на диалоговия прозорец ще вмъкне резултата като формула в клетките с резултати. Когато стойността на референтната клетка се промени, резултатът ще се актуализира автоматично.
3. В Извличане на текст диалогов прозорец, изберете празна клетка, за да изведете извлечения текст, и след това щракнете OK.
След това се извличат числа от всяка позиция в текстов низ. Вижте екранна снимка:
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
