Hogyan vonható ki a tizedesérték az stringből az Excelben?

Ez az oktatóanyag elárulja, hogyan lehet csak decimális értéket kinyerni az Excel karakterláncaiból.

Bontsa ki a tizedesértéket az Excel képletével
Bontsa ki a tizedesértéket a VBA segítségével az Excelben
Könnyen kivonat decimális értéket Kutools for Excel

Bontsa ki a tizedesértéket az Excel képletével

Két képlet segíthet a decimális érték kibontásában egy karakterláncból, válasszon egyet közülük szükség szerint.

Az értékek előjelétől független képlet:

Válasszon egy cellát, és írja be ezt a képletet = ABS (A1-TRUNC (A1)) (A1 az a cella, amelyből a tizedesértéket ki szeretné vonni) a képletsávba, majd nyomja meg az gombot belép kulcs. Válassza ki az első eredmény cellát, az összes eredmény eléréséhez húzza lefelé a kitöltő fogantyút. Láthatja, hogy a tizedesértékeket csak előjel nélkül vonják ki, az alábbi képernyőképen.

Az értékek előjeleit tükröző képlet:

Válasszon egy cellát, és írja be ezt a képletet = A1-TRUNC (A1) (A1 az a cella, amelyből a tizedesértéket ki szeretné vonni) a képletsávba, majd nyomja meg az gombot belép kulcs. Válassza ki az első eredmény cellát, és az összes eredmény eléréséhez húzza lefelé a kitöltő fogantyút. Láthatja, hogy a tizedesértékeket előjellel vonják ki, ahogy az alábbi képen látható.

Bontsa ki a tizedesértéket a VBA segítségével az Excelben

Van egy VBA, amely csak a karakterláncokból képes tömöríteni a tizedesértékeket előjellel.

1. nyomja meg Alt + F11 megnyitni Microsoft Visual Basic for Applications ablak.

2. Az előugró ablakban kattintson a gombra betétlap > Modulok, majd illessze be a következő VBA kódot a modulba.

VBA: Csak decimális értékeket vonjon ki

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. megnyomni a F5 gombot a kód futtatásához. Aztán a Kutools for Excel megjelenik a párbeszédpanel, válassza ki azt a tartományt, amelyből csak a tizedesértékeket kívánja kibontani, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

4. Aztán még egy Kutools for Excel párbeszédpanel jelenik meg, ki kell választania egy cellát a kibontott tizedesértékek megkereséséhez. Lásd a képernyőképet:

Láthatja, hogy csak a megadott számok tizedesértékeit vonják ki és helyezik el egy bizonyos tartományba, ahogy az alább látható az alapkép.

Könnyen kivonat decimális értéket Kutools for Excel

Ha nem tetszik a képlet és a VBA módszerek, itt bemutatok egy praktikus eszközt - Kutools for Excel. A saját Kivonat szöveg segédprogrammal könnyedén kivonhatja az összes decimális értéket az Excel tartományából.

1. Válassza ki a kibontani kívánt tizedesértékkel rendelkező tartományt, majd kattintson a gombra Kutools > szöveg > Kivonat szöveg. Lásd a képernyőképet:

2. Ban,-ben Kivonat szöveg párbeszédpanelen írja be .* a Szöveg mezőbe, majd kattintson a gombra hozzáad gomb. Végül kattintson a gombra OK gomb. Lásd a képernyőképet:

3. Egy másik felbukkanó Kivonat szöveg párbeszédpanelen jelöljön ki egy üres cellát az eredmény megkereséséhez, majd kattintson a gombra OK gombot.

Ezután a kiválasztott tartomány összes tizedesértékét azonnal kinyerjük. Lásd a képernyőképet:

Relatív cikkek:

• Időt vagy órát csak Excelben nyerhet ki