Hoe decimale waarde uit een string in Excel te extraheren?

In deze zelfstudie wordt uitgelegd hoe u een decimale waarde alleen uit een tekenreeks in Excel kunt extraheren.

Extraheer decimale waarde met formule in Excel
Extraheer decimale waarde met VBA in Excel
Extraheer eenvoudig decimale waarde met Kutools voor Excel

Extraheer decimale waarde met formule in Excel

Er zijn twee formules die u kunnen helpen bij het extraheren van decimale waarden uit een tekenreeks, kies er een uit die u nodig heeft.

De formule die onafhankelijk is van het teken van waarden:

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 sleutel. Blijf de eerste resultatencel selecteren, sleep de vulgreep omlaag om alle resultaten te krijgen. U kunt zien dat de decimale waarden alleen zonder teken worden geëxtraheerd, zoals hieronder wordt getoond.

De formule die het teken van 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 sleutel. Blijf de eerste resultatencel selecteren en sleep de vulgreep omlaag om alle resultaten te krijgen. U kunt zien dat de decimale waarden worden geëxtraheerd met een teken, zoals hieronder wordt getoond.

Extraheer decimale waarde met VBA in Excel

Er is een VBA die decimale waarden met het teken alleen uit strings kan extraheren.

1. druk op Alt + F11 om de te openen Microsoft Visual Basic voor toepassingen venster.

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

VBA: extraheer alleen decimale waarden

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 de F5 sleutel om de code uit te voeren. Dan een Kutools for Excel dialoogvenster verschijnt, selecteer het bereik waaruit u alleen decimale waarden wilt extraheren en klik op de OK knop. Zie screenshot:

4. Dan nog een Kutools for Excel dialoogvenster verschijnt, moet u een cel selecteren om de geëxtraheerde decimale waarden te lokaliseren. Zie screenshot:

U kunt zien dat alleen de decimale waarden van opgegeven getallen worden geëxtraheerd en op een bepaald bereik worden geplaatst, zoals hieronder wordt weergegeven.

Extraheer eenvoudig decimale waarde met Kutools voor Excel

Als je de formule en VBA-methoden niet leuk vindt, introduceer ik je hier een handige tool - Kutools for Excel. Met zijn Extraheer tekst hulpprogramma, kunt u eenvoudig alle decimale waarden uit een bereik in Excel extraheren.

1. Selecteer het bereik met decimaal dat u wilt extraheren en klik op Kutools > Tekst > Extraheer tekst. Zie screenshot:

2. In de Extraheer tekst dialoogvenster, type .* in het tekstvak en klik vervolgens op het Toevoegen knop. Klik ten slotte op het OK knop. Zie screenshot:

3. In een ander opduiken Extraheer tekst dialoogvenster, selecteer een lege cel om het resultaat te zoeken en klik vervolgens op het OK knop.

Vervolgens worden alle decimale waarden in het geselecteerde bereik onmiddellijk geëxtraheerd. Zie screenshot:

Relatieve artikelen:

• Extraheer tijd of uur alleen in Excel