Skip to main content

Hoe nummers uit gemengde alfanumerieke tekststrings in Excel te extraheren?

Author: Siluvia Last Modified: 2025-05-29

Deze tutorial biedt drie methoden om nummers uit gemengde alfanumerieke tekststrings in Excel te extraheren.

extract numbers from text strings

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),"")

Extract numbers from text strings with formula

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.

Kutools voor Excel biedt meer dan 300 geavanceerde functies om complexe taken te stroomlijnen, waardoor creativiteit en efficiëntie worden vergroot. Geïntegreerd met AI-mogelijkheden, automatiseert Kutools taken met precisie, waardoor gegevensbeheer moeiteloos wordt. Gedetailleerde informatie over Kutools voor Excel...  Gratis proefversie...

1. Klik op Kutools > Tekst > Extract Text om de functie te activeren.

2. Voer in het Extract Text-dialoogvenster de volgende instellingen uit.

2.1) Klik op het tabblad Extraheren op basis van positie (dit tabblad is standaard ingeschakeld);
2.2) In de Bereik sectie, klik op de select button knop om het bereik van cellen te selecteren waaruit u tekst wilt extraheren;
2.3) In de Opties-sectie: Selecteer de Nummers extraheren-optie;
2.4) Klik op OK.

specify the options in the dialog box

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.

select a blank cell to output the result

Vervolgens worden de nummers uit elke positie in een tekststring geëxtraheerd. Zie screenshot:

numbers from any position in a text string are extracted

  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 Sub

3. 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.

vba code to select the data list

Nu zijn alle niet-numerieke tekens in het geselecteerde bereik onmiddellijk verwijderd en blijven alleen de nummers over. Zie screenshot:

all nonnumeric characters are removed

Beste Office-productiviteitstools

🤖 Kutools AI Assistent: Breng een revolutie teweeg in data-analyse Methode: Intelligente uitvoering |Code genereren |Aangepaste formules maken |Gegevens analyseren en grafieken genereren |Kutools-functies gebruiken
Populaire functies: Dubbele waarden markeren, markeren of identificeren | Verwijder lege rijen | Kolommen of cellen samenvoegen zonder gegevensverlies | Afronden ...
Super ZOEKEN: VLookup met meerdere criteria | VLookup met meerdere waarden | Meervoudig-blad opzoeken | Fuzzy Match ...
Geavanceerde keuzelijst: Snel keuzelijst maken | Afhankelijke keuzelijst | Meervoudige selectie keuzelijst ...
Kolombeheer: Specifiek aantal kolommen toevoegen | Kolommen verplaatsen | Zichtbaarheid van verborgen kolommen wisselen | Bereik & kolommen vergelijken ...
Uitgelichte functies: Rasterfocus | Ontwerpweergave | Verbeterde formulebalk | Werkboek- & Werkbladbeheer | AutoTekstbibliotheek | Datumkiezer | Gegevens samenvoegen | Cellen coderen/decoderen | E-mail verzenden per lijst | Superfilter | Speciaal filter (filter cellen met vetgedrukt/cursief/doorhalen...) ...
Top15 toolsets:12 Teksttools (Tekst toevoegen, Specifieke tekens verwijderen, ...) |50+ Grafiek type (Gantt-diagram, ...) |40+ Praktische formules (Leeftijd berekenen op basis van geboortedatum, ...) |19 Invoegtools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...) | 12 Conversietools (Omzetten naar woorden, Valutaconversie, ...) | 7 Samenvoeg- & Opsplitstools (Geavanceerd samenvoegen van rijen, Cellen splitsen, ...) | ... en meer

Versterk 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 krijgen die je het meest nodig hebt...


Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
  • 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!