Hoe nummers uit gemengde alfanumerieke tekststrings in Excel te extraheren?
Deze tutorial biedt drie methoden om nummers uit gemengde alfanumerieke tekststrings in Excel te extraheren.
Nummers extraheren uit gemengde alfanumerieke tekststrings met een formule
Nummers eenvoudig extraheren uit gemengde alfanumerieke tekststrings met een geweldig hulpmiddel
Nummers extraheren uit gemengde alfanumerieke tekststrings met VBA-code
Nummers extraheren uit gemengde alfanumerieke tekststrings met een formule
U kunt de onderstaande formule toepassen om nummers overal in een tekststring in Excel te extraheren.
1. Selecteer een lege cel om de geëxtraheerde nummers weer te geven, voer de onderstaande formule in en druk op de Enter-toets. Sleep vervolgens de automatische vulgreep 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 tekststring bevat waaruit u nummers wilt extraheren. Pas deze aan op basis van uw behoeften.
Vervolgens worden de nummers uit de tekststring in de opgegeven cellen geëxtraheerd zoals in de bovenstaande schermafbeelding te zien is.
Nummers eenvoudig extraheren uit gemengde alfanumerieke tekststrings met Kutools voor Excel
Deze sectie raadt het Extract Text-hulpprogramma van Kutools voor Excel aan. Met dit hulpprogramma kan het extraheren van nummers uit een tekststring gemakkelijk worden afgehandeld.
1. Klik op Kutools > Tekst > Extract Text om de functie te activeren.
2. Voer in het Extract Text-dialoogvenster de volgende instellingen uit.
knop om het bereik van cellen te selecteren waaruit u tekst wilt extraheren;
Opmerking: Door het vakje Invoegen als formule in de linkeronderhoek van het dialoogvenster aan te vinken, wordt het resultaat als formule in de resultaatcellen ingevoegd. Wanneer de waarde van de gerefereerde cel verandert, wordt het resultaat automatisch bijgewerkt.
3. Selecteer in het Extract Text-dialoogvenster een lege cel om de geëxtraheerde tekst weer te geven en klik vervolgens op OK.
Vervolgens worden de nummers uit elke positie in een tekststring geëxtraheerd. Zie screenshot:
Als u een gratis proefperiode (30-dag) van dit hulpprogramma wilt, klikt u op de link om het te downloaden, en gaat u vervolgens naar de bewerking toepassen volgens de hierboven beschreven stappen.
Behoud alleen nummers in gemengde alfanumerieke tekststrings met VBA-code
De volgende VBA-code kan helpen om alle niet-numerieke tekens uit een opgegeven bereik te verwijderen en alleen nummers in de cellen te behouden. Volg de onderstaande stappen.
Opmerking: Omdat de code direct op het originele bereik wordt uitgevoerd, bewaar een kopie van het originele bereik om gegevensverlies te voorkomen.
1. Druk gelijktijdig op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.
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 op de F5-toets om de code uit te voeren. Vervolgens verschijnt er een Kutools voor Excel-dialoogvenster, selecteer het bereik dat de gemengde alfanumerieke tekststrings bevat waaruit u alleen de nummers wilt behouden en klik op de OK-knop.
Nu zijn alle niet-numerieke tekens in het geselecteerde bereik onmiddellijk verwijderd en blijven alleen de nummers over. Zie screenshot:
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen