KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe haalt u een decimale waarde uit een tekst in Excel?

AuteurSun Wijzigingsdatum

In deze handleiding leest u hoe u alleen de decimale waarde uit een tekst in Excel extraheren.

Decimale waarde extraheren met een formule in Excel
Decimale waarde extraheren met VBA in Excel
Decimale waarde eenvoudig extraheren met Kutools voor Excel

Decimale waarde extraheren met een formule in Excel

Er zijn twee formules waarmee u de decimale waarde uit een tekst kunt halen; kies de formule die u het beste uitkomt.

De formule die onafhankelijk is van het teken van de waarden:

Selecteer een cel en typ de volgende formule in de formulebalk: =ABS(A1-GEHEELDEEL(A1)) (A1 is de cel waaruit u de decimale waarde wilt extraheren). Druk daarna op Enter. Houd de eerste resultaatcel geselecteerd en sleep de vulgreep omlaag om alle resultaten te verkrijgen. Zoals in de onderstaande afbeelding te zien is, worden alleen de decimale waarden zonder minteken geëxtraheerd.

De formule die het teken van de waarden behoudt:

Selecteer een cel en typ de volgende formule in de formulebalk: =A1-GEHEELDEEL(A1) (waarbij A1 de cel is waaruit u de decimale waarde wilt extraheren). Druk daarna op Enter. Houd de eerste resultaatcel geselecteerd en sleep de vulgreep omlaag om alle resultaten te verkrijgen. Zoals in de onderstaande afbeelding te zien is, worden de decimale waarden inclusief hun teken correct geëxtraheerd.

Decimaal getal extraheren dat het teken van waarden weergeeft

Decimalen eenvoudig extraheren uit een Bereik selecteren in Excel:

Met het Kutools voor Excel-hulpmiddel Tekst extraheren haalt u eenvoudig alle decimale waarden uit een beperkt bereik, zoals in de onderstaande demo wordt getoond.
Download en probeer het nu! (30 dagen gratis proefversie))

Decimale waarde extraheren met VBA in Excel

Er is een VBA-script waarmee u in één keer decimale waarden met hun teken uit teksten kunt extraheren.

1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het pop-upvenster op Invoegen > Module en plak vervolgens de volgende VBA-code in de module.

VBA: Alleen decimale waarden extraheren

Sub GetNumber()
    Dim xSRg As Range
    Dim xDRg As Range
    Dim xPRg As Range
    Dim xSRgArea As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim I As Long
    Dim K As Long
    Dim KK As Long
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select range:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Select single cell:", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Areas.Count
        Set xSRgArea = xSRg.Areas.Item(I)
        For K = 1 To xSRgArea.Count
            xRgVal = xSRgArea(K).Value
            KK = xSRgArea(K).Row - xSRg.Row
            If IsNumeric(xRgVal) Then
                xDRg.Offset(KK) = xRgVal - VBA.Fix(xRgVal)
            End If
        Next
    Next
End Sub

3. Druk op de toets F5 om de code uit te voeren. Vervolgens verschijnt het dialoogvenster Kutools voor Excel. Selecteer het bereik waaruit u alleen decimale waarden wilt extraheren en klik op de knop OK. Zie afbeelding:

vba-code om de gegevenslijst te selecteren

4. Vervolgens verschijnt er nog een Kutools voor Excel-dialoogvenster; selecteer hierin een cel om de geëxtraheerde decimale waarden in te voeren. Zie afbeelding:

vba-code om een cel te selecteren voor het weergeven van het resultaat

U ziet dat alleen de decimale waarden van de opgegeven getallen worden geëxtraheerd en binnen een bepaald bereik worden geplaatst, zoals in de onderstaande afbeelding wordt weergegeven.

de decimale waarden zijn geëxtraheerd

Decimale waarde eenvoudig extraheren met Kutools voor Excel

Als u formules en VBA-methoden niet prettig vindt, stel ik u hier een handige tool voor: Kutools voor Excel. Met het hulpmiddel Tekst extraheren kunt u eenvoudig alle decimale waarden uit een bereik in Excel extraheren.

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

1. Selecteer het bereik met decimalen dat u wilt extraheren en klik vervolgens op Kutools > Tekst > Tekst extraheren. Zie afbeelding:

2. Typ in het dialoogvenster Tekst extraheren.* in het tekstvak en klik op de knop Toevoegen . Klik ten slotte op de knop OK . Zie afbeelding: button. See screenshot:

opties instellen in het dialoogvenster

3. Selecteer in het nieuwe pop-updialoogvenster Tekst extraheren een lege cel om het resultaat te plaatsen en klik op de knop OK.

selecteer een lege cel om het resultaat te plaatsen

Vervolgens worden alle decimale waarden in het geselecteerde bereik direct geëxtraheerd. Zie afbeelding:

alle decimale waarden in het geselecteerde bereik zijn geëxtraheerd

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.

Gerelateerde artikelen:

Beste Office-productiviteitshulpmiddelen

🤖KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

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.

ExcelWordOutlookTabsPowerPoint
  • 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