Hoe nummers te extraheren uit gemengde alfanumerieke tekstreeksen in Excel?
Deze tutorial biedt drie methoden om te helpen bij het extraheren van getallen uit gemengde alfanumerieke tekstreeksen in Excel.
Haal getallen uit gemengde alfanumerieke tekstreeksen met formule
Haal nummers uit gemengde alfanumerieke tekstreeksen met VBA-code
Extraheer eenvoudig getallen uit gemengde alfanumerieke tekstreeksen met een geweldige tool
Haal getallen uit gemengde alfanumerieke tekstreeksen met formule
U kunt de onderstaande formule toepassen om getallen overal in een tekstreeks in Excel te extraheren.
1. Selecteer een lege cel om de geëxtraheerde getallen uit te voeren, voer de onderstaande formule erin in en druk op Enter sleutel. Sleep vervolgens de AutoFill-hendel naar beneden om de formule op andere cellen toe te passen.
=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),"")
Opmerking:: In de formule is A1 de cel die de tekstreeks bevat waarvan u getallen wilt extraheren. Wijzig het op basis van uw behoeften.
Vervolgens worden nummers overal in een tekstreeks in gespecificeerde cellen geëxtraheerd, zoals de bovenstaande schermafbeelding laat zien.
Bewaar alleen nummers in gemengde alfanumerieke tekstreeksen met VBA-code
De volgende VBA-code kan u helpen alle niet-numerieke tekens uit het opgegeven bereik te verwijderen en alleen cijfers in cellen te behouden. Ga als volgt te werk.
Opmerking:: Aangezien de code het oorspronkelijke bereik direct overschrijdt, dient u een kopie van het oorspronkelijke bereik te bewaren voor het geval u gegevens verliest.
1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.
VBA-code: verwijder alle niet-numerieke tekens uit cellen
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. druk de F5 sleutel om de code uit te voeren. Dan een Kutools for Excel dialoogvenster verschijnt, selecteer het bereik dat de gemengde alfanumerieke tekstreeksen bevat, u behoudt alleen de cijfers, en klik op de OK knop.
Nu zijn alle niet-numerieke tekens in het geselecteerde bereik onmiddellijk verwijderd en zijn alleen de nummers behouden. Zie screenshot:
Extraheer eenvoudig getallen uit gemengde alfanumerieke tekenreeksen met Kutools for Excel
In dit gedeelte wordt het hulpprogramma Tekst extraheren van aanbevolen Kutools for Excel. Met dit hulpprogramma kan het gemakkelijk zijn om getallen uit een tekenreeks te extraheren.
Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.
1. klikken Kutools > Tekst > Extraheer tekst om de functie in te schakelen.
2. In de Extraheer tekst dialoogvenster, voer de onderstaande instellingen uit.
knop om het celbereik te selecteren waaruit u tekst wilt extraheren;
Opmerking: Controleer de Invoegen als formule vak in de linker benedenhoek van het dialoogvenster zal het resultaat als formule invoegen in de resultaatcellen. Wanneer de waarde van de cel waarnaar wordt verwezen, verandert, wordt het resultaat automatisch bijgewerkt.
3. In de Extraheer tekst dialoogvenster, selecteer een lege cel om de geëxtraheerde tekst uit te voeren en klik vervolgens op OK.
Vervolgens worden nummers van elke positie in een tekstreeks geëxtraheerd. Zie screenshot:
Als u een gratis proefperiode wilt hebben (30-dag) van dit hulpprogramma, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for Excel Biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
