Hoe haalt u getallen uit gemengde alfanumerieke tekstreeksen in Excel?
Deze handleiding presenteert drie methoden om getallen uit gemengde alfanumerieke tekstreeksen in Excel te halen.
Haal getallen uit gemengde alfanumerieke tekstreeksen met een formule
Haal eenvoudig getallen uit gemengde alfanumerieke tekstreeksen met een geweldig hulpmiddel
Haal getallen uit gemengde alfanumerieke tekstreeksen met VBA-code
Haal getallen uit gemengde alfanumerieke tekstreeksen met een formule
U kunt de onderstaande formule gebruiken om getallen vanaf een willekeurige positie in een tekstreeks in Excel te extraheren.
1. Selecteer een lege cel voor de uitvoer van de geëxtraheerde getallen, 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 met de tekstreeks waaruit u getallen wilt halen. Pas deze aan naar uw eigen situatie.
Vervolgens worden getallen vanaf elke positie in een tekstreeks in de opgegeven cellen geëxtraheerd, zoals in de bovenstaande schermafbeelding wordt weergegeven.
Haal eenvoudig getallen uit gemengde alfanumerieke tekstreeksen met Kutools voor Excel
In dit gedeelte wordt het hulpmiddel **Tekst extraheren** van Kutools voor Excel aanbevolen — daarmee haalt u getallen uit een tekstreeks met gemak.
1. Klik op Kutools > Tekst > Tekst extraheren om de functie in te schakelen.
2. Voer in het dialoogvenster Tekst extraherende volgende instellingen uit.
om het bereik met cellen te selecteren waaruit u wilt Tekst extraheren;
Opmerking: Als u het selectievakje Invoegen als formuleWanneer u linksonder in het dialoogvenster het selectievakje aanvinkt, wordt het resultaat als formule in de resultaatcellen ingevoegd en automatisch bijgewerkt zodra de waarde van de gerefereerde cel verandert.
3. Selecteer in het dialoogvenster Tekst extraheren een lege cel voor de uitvoer van de tekstextractie en klik vervolgens op OK.
Vervolgens worden getallen uit elke positie in een tekstreeks geëxtraheerd. Zie de schermafbeelding:
Wilt u een gratis proefversie (30 dagen) van deze tool gebruiken?Klik dan hier om deze te downloaden en volg daarna bovenstaande stappen om de bewerking toe te passen.
Behoud alleen getallen in gemengde alfanumerieke tekstreeksen met VBA-code
Met de volgende VBA-code verwijdert u alle niet-numerieke tekens uit het beperkte bereik en behoudt u alleen de getallen in de cellen. Volg hiervoor de onderstaande stappen.
OpmerkingOmdat de code direct op het oorspronkelijke bereik wordt uitgevoerd, raden we u aan een kopie van dat bereik te bewaren om gegevensverlies te voorkomen.
1. Druk tegelijkertijd op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applicationsop 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 op de F5-toets om de code uit te voeren. Vervolgens verschijnt een Kutools voor Excel-dialoogvenster. Selecteer het bereik met de gemengde alfanumerieke tekstreeksen waarvan u alleen de getallen wilt behouden en klik op de knop OK.
Nu worden alle niet-numerieke tekens in het geselecteerde bereik onmiddellijk verwijderd, zodat alleen de getallen overblijven. Zie de schermafbeelding:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins