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 kivonhatja a tizedesértéket a Kutools for Excel programmal

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 az Excel számára 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 az Excel számára 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 kivonhatja a tizedesértéket a Kutools for Excel programmal

Ha nem tetszik a képlet és a VBA módszerek, itt bemutatok egy praktikus eszközt - Kutools az Excel számára. 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:

Könnyen kivonhatja a tizedesértéket a Kutools for Excel programmal

Relatív cikkek:

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

---

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

• újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
• Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
• Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
• Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
• Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
• Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
• Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
• Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
• Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Tovább ... Ingyenes letöltés... Vásárlás... 

---

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

• Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
• Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
• 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

Tovább ... Ingyenes letöltés... Vásárlás...