Hur extraherar jag decimalvärde från sträng i Excel?

Denna handledning kommer att berätta hur man endast extraherar decimalt värde från en sträng i Excel.

Extrahera decimalvärde med formel i Excel
Extrahera decimalt värde med VBA i Excel
Extrahera enkelt decimalvärde med Kutools för Excel

Extrahera decimalvärde med formel i Excel

Det finns två formler som kan hjälpa dig att extrahera decimalvärde från en sträng, välj en av dem efter behov.

Formeln som är oberoende av tecken på värden:

Välj en cell och skriv den här formeln = ABS (A1-TRUNC (A1)) (A1 är cellen du vill extrahera decimalvärde från) till formelfältet och tryck sedan på ange nyckel. Fortsätt att välja den första resultatcellen, dra fyllhandtaget nedåt för att få alla resultat. Du kan se att decimalvärdena extraheras endast utan tecken som visas nedan.

Formeln som återspeglar tecken på värden:

Välj en cell och skriv den här formeln = A1-TRUNC (A1) (A1 är cellen du vill extrahera decimalvärde från) till formelfältet och tryck sedan på ange nyckel. Fortsätt att välja den första resultatcellen och dra nedåt för att få alla resultat. Du kan se decimalvärdena extraheras med tecknet enligt nedanstående skärmdump.

Extrahera decimalt värde med VBA i Excel

Det finns en VBA som endast kan extrahera decimalvärden med tecknet endast från strängar.

1. Tryck Alt + F11 att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka på i popup-fönstret Insert > Modulernaoch klistra sedan in följande VBA-kod i modulen.

VBA: Extrahera endast decimalvärden

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. tryck på F5 för att köra koden. Då en Kutools för Excel dialogrutan dyker upp, välj det intervall du bara vill extrahera decimalvärden från och klicka på OK knapp. Se skärmdump:

4. Sedan en till Kutools för Excel dialogrutan dyker upp, måste du välja en cell för att hitta de extraherade decimalvärdena. Se skärmdump:

Du kan bara se decimalvärdena för angivna nummer extraheras och placeras i ett visst intervall som visas nedan.

Extrahera enkelt decimalvärde med Kutools för Excel

Om du inte gillar formeln och VBA-metoderna presenterar jag dig här ett praktiskt verktyg - Kutools för Excel. Med dess Extrahera text verktyg kan du enkelt extrahera alla decimalvärden från ett intervall i Excel.

1. Välj det intervall med decimal du vill extrahera och klicka sedan på Kutools > text > Extrahera text. Se skärmdump:

2. I Extrahera text dialogrutan, skriv .* i textrutan och klicka sedan på Lägg till knapp. Klicka slutligen på OK knapp. Se skärmdump:

3. I en annan dyker upp Extrahera text Välj en tom cell för att hitta resultatet och klicka sedan på OK knapp.

Sedan extraheras alla decimalvärden i det valda intervallet omedelbart. Se skärmdump:

Relativa artiklar:

• Extrahera tid eller timme endast i Excel