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ó.
Könnyen kivonhatja a decimális számokat egy kiválasztott tartományból az Excelben:
Kutools for Excel's Kivonat szöveg segédprogram segítségével könnyedén kivonhatja az összes tizedesértéket egy megadott tartományból, amint az alábbi bemutató bemutatja.
Töltse le és próbálja ki most! (30 napos ingyenes pálya)
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:
Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.
Relatív cikkek:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet ezzel Kutools for Excel, és tapasztalja meg a még soha nem látott hatékonyságot. Kutools for Excel Több mint 300 speciális funkciót kínál a termelékenység fokozása és az időmegtakarítás érdekében. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Office Tab Lapos felületet hoz 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!