Hoe decimale waarde uit een string in Excel extraheren?
Deze tutorial legt uit hoe u alleen de decimale waarde uit een string in Excel kunt extraheren.
Decimale waarde met formule in Excel extraheren
Decimale waarde met VBA in Excel extraheren
Eenvoudig decimale waarde extraheren met Kutools voor Excel
Decimale waarde met formule in Excel extraheren
Er zijn twee formules die u kunnen helpen bij het extraheren van decimale waarden uit een string, kies degene die u nodig heeft.
De formule die ongeacht het teken van de waarden werkt:
Selecteer een cel en typ deze formule =ABS(A1-TRUNC(A1)) (A1 is de cel waaruit u de decimale waarde wilt extraheren) in de Formulebalk, en druk vervolgens op Enter. Blijf de eerste resultaatcel selecteren en sleep de vulgreep naar beneden om alle resultaten te krijgen. U ziet dat de decimale waarden zonder teken worden geëxtraheerd zoals in onderstaande schermafbeelding te zien is.
De formule die het teken van de waarden weerspiegelt:
Selecteer een cel en typ deze formule =A1-TRUNC(A1) (A1 is de cel waaruit u de decimale waarde wilt extraheren) in de Formulebalk, en druk vervolgens op Enter. Blijf de eerste resultaatcel selecteren en sleep de vulgreep naar beneden om alle resultaten te krijgen. U ziet dat de decimale waarden met teken worden geëxtraheerd zoals in onderstaande schermafbeelding te zien is.
Eenvoudig decimale getallen extraheren uit een geselecteerd bereik in Excel:
Kutools voor Excel's Tekst extraheren hulpprogramma helpt u eenvoudig alle decimale waarden uit een gespecificeerd bereik te extraheren zoals in onderstaande demo te zien is.
Download en probeer het nu! (30-daagse gratis proefversie)
Decimale waarde met VBA in Excel extraheren
Er is een VBA die massaal decimale waarden met het teken kan extraheren uit strings.
1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster 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 Sub3. Druk op de F5-toets om de code uit te voeren. Er verschijnt een dialoogvenster van Kutools voor Excel, selecteer het bereik waaruit u alleen de decimale waarden wilt extraheren en klik op de OK-knop. Zie screenshot:
4. Er verschijnt nog een dialoogvenster van Kutools voor Excel, waarin u een cel moet selecteren om de geëxtraheerde decimale waarden te plaatsen. Zie screenshot:
U ziet dat alleen de decimale waarden van de gespecificeerde getallen worden geëxtraheerd en geplaatst in een bepaald bereik zoals in onderstaande schermafbeelding te zien is.
Eenvoudig decimale waarde extraheren met Kutools voor Excel
Als u de formule- en VBA-methoden niet leuk vindt, dan introduceer ik hier een handig hulpmiddel – Kutools voor Excel. Met de functie Tekst extraheren kunt u gemakkelijk alle decimale waarden uit een bereik in Excel extraheren.
1. Selecteer het bereik met decimalen dat u wilt extraheren, en klik vervolgens op Kutools > Tekst > Tekst extraheren. Zie screenshot:
2. Typ .* in het Extract Text-dialoogvenster in het Tekstvak, en klik vervolgens op de Toevoegen-knop. Klik ten slotte op de OK-knop. Zie screenshot:
3. Selecteer in een ander Extract Text-dialoogvenster een lege cel om het resultaat te plaatsen, en klik vervolgens op de OK-knop.
Alle decimale waarden in het geselecteerde bereik worden onmiddellijk 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.
Gerelateerde artikelen:
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