Cum se extrag numere din șiruri de text alfanumerice mixte în Excel?
Acest tutorial oferă trei metode pentru a ajuta la extragerea numerelor dintr-un șir de text alfanumeric mixt în Excel.
Extrageți numerele din șiruri de text alfanumerice mixte cu formulă
Extrageți numerele din șiruri de text alfanumerice mixte cu cod VBA
Extrageți cu ușurință numerele din șiruri de text alfanumerice mixte cu un instrument uimitor
Extrageți numerele din șiruri de text alfanumerice mixte cu formulă
Puteți aplica formula de mai jos pentru a extrage numerele de oriunde dintr-un șir de text în Excel.
1. Selectați o celulă goală pentru a afișa numerele extrase, introduceți formula de mai jos în ea și apăsați tasta Intrați cheie. Apoi trageți mânerul de completare automată în jos pentru a aplica formula altor celule.
=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),"")
notițe: În formulă, A1 este celula care conține șirul de text pe care doriți să extrageți numerele. Vă rugăm să îl modificați în funcție de nevoile dvs.
Apoi, numerele sunt extrase de oriunde dintr-un șir de text în celulele specificate, așa cum se arată în captura de ecran de mai sus.
Păstrați numerele numai în șiruri de text alfanumerice mixte cu cod VBA
Următorul cod VBA vă poate ajuta să eliminați toate caracterele nenumerice din intervalul specificat și să păstrați numai numere în celule. Vă rugăm să faceți următoarele.
notițe: Deoarece codul execută direct intervalul original, păstrați o copie a intervalului original în cazul pierderii datelor.
1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți codul VBA de mai jos în fereastra Module.
Cod VBA: eliminați toate caracterele nenumerice din celule
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. apasă pe F5 tasta pentru a rula codul. Apoi o Kutools pentru Excel apare fereastra de dialog, selectați intervalul care conține șiruri de text alfanumerice mixte, veți păstra doar numerele și faceți clic pe OK butonul.
Acum, toate caracterele nenumerice din intervalul selectat au fost eliminate imediat și numai numerele păstrate. Vedeți captura de ecran:
Extrageți cu ușurință numerele din șiruri de text alfanumerice mixte cu Kutools pentru Excel
Această secțiune recomandă utilitarul Extract Text al Kutools pentru Excel. Cu acest utilitar, extragerea numerelor dintr-un șir de text poate fi ușor de manevrat.
Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.
1. clic Kutools > Text > Extrageți textul pentru a activa caracteristica.
2. În Extrageți textul caseta de dialog, vă rugăm să efectuați setările de mai jos.
buton pentru a selecta gama de celule din care veți extrage text;
Notă: Verifică Inserați ca formulă caseta din colțul din stânga jos al dialogului va insera rezultatul ca formulă în celulele rezultate. Când se modifică valoarea celulei la care se face referire, rezultatul se va actualiza automat.
3. În Extrageți textul caseta de dialog, selectați o celulă necompletată pentru a afișa textul extras, apoi faceți clic pe OK.
Apoi se extrag numerele din orice poziție dintr-un șir de text. Vedeți captura de ecran:
Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
