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 nummers uit gemengde alfanumerieke tekstreeksen met Kutools voor Excel
In dit gedeelte wordt het hulpprogramma Tekst extraheren van Kutools voor Excel aanbevolen. Met dit hulpprogramma kan het extraheren van getallen uit een tekstreeks eenvoudig zijn.
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 (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
Office-tabblad 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 elke dag honderden muisklikken!
