Jak extrahovat desetinnou hodnotu z řetězce v aplikaci Excel?
Tento kurz vám řekne, jak extrahovat desetinnou hodnotu pouze z řetězce v aplikaci Excel.
Extrahujte desetinnou hodnotu pomocí vzorce v aplikaci Excel
Extrahujte desetinnou hodnotu pomocí VBA v aplikaci Excel
Snadno extrahujte desítkovou hodnotu pomocí programu Kutools pro Excel
Extrahujte desetinnou hodnotu pomocí vzorce v aplikaci Excel
Existují dva vzorce, které vám pomohou extrahovat desetinnou hodnotu z řetězce, vyberte si jeden z nich podle potřeby.
Vzorec bez ohledu na znaménko hodnot:
Vyberte buňku a zadejte tento vzorec = ABS (A1-TRUNC (A1)) (A1 je buňka, ze které chcete extrahovat desetinnou hodnotu) do řádku vzorců a poté stiskněte vstoupit klíč. Pokračujte ve výběru první buňky výsledků, přetažením úchytu dolů zobrazte všechny výsledky. Můžete vidět, že desetinné hodnoty jsou extrahovány pouze bez znaménka, jak je uvedeno níže.
Vzorec odrážející znaménko hodnot:
Vyberte buňku a zadejte tento vzorec = A1-TRUNC (A1) (A1 je buňka, ze které chcete extrahovat desetinnou hodnotu) do řádku vzorců a poté stiskněte vstoupit klíč. Pokračujte ve výběru první buňky výsledků a přetažením úchytu dolů zobrazte všechny výsledky. Můžete vidět, že desetinné hodnoty jsou extrahovány znakem, jak je uvedeno níže.
Snadno extrahujte desetinná čísla z vybraného rozsahu v aplikaci Excel:
Kutools pro Excel's Extrahujte text nástroj vám pomůže snadno extrahovat všechny desetinné hodnoty ze zadaného rozsahu, jak je ukázáno níže.
Stáhněte si a vyzkoušejte! (30denní bezplatná trasa)
Extrahujte desetinnou hodnotu pomocí VBA v aplikaci Excel
Existuje VBA, který může hromadně extrahovat desítkové hodnoty se znaménkem pouze z řetězců.
1. lis Alt + F11 k otevření Microsoft Visual Basic pro aplikace okno.
2. Ve vyskakovacím okně klikněte na Vložit > Modul, pak vložte následující kód VBA do modulu.
VBA: Extrahujte pouze desítkové hodnoty
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 Sub3. zmáčkni F5 klíč ke spuštění kódu. Pak Kutools pro Excel Zobrazí se dialogové okno, vyberte rozsah, ze kterého chcete extrahovat pouze desítkové hodnoty, a klikněte na OK knoflík. Viz screenshot:
4. Pak další Kutools pro Excel Zobrazí se dialogové okno, musíte vybrat buňku pro vyhledání extrahovaných desetinných hodnot. Viz screenshot:
Můžete vidět, že jsou extrahovány pouze desítkové hodnoty zadaných čísel a umístěny do určitého rozsahu, jak je ukázáno níže.
Snadno extrahujte desítkovou hodnotu pomocí programu Kutools pro Excel
Pokud se vám nelíbí metody vzorce a VBA, představuji vám užitečný nástroj - Kutools pro Excel. S jeho Extrahujte text nástroj, můžete snadno extrahovat všechny desítkové hodnoty z rozsahu v aplikaci Excel.
Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.
1. Vyberte rozsah s desetinnou čárkou, který chcete extrahovat, a poté klikněte Kutools > Text > Extrahujte text. Viz snímek obrazovky:
2. V Extrahujte text dialogové okno, zadejte .* do textového pole a potom klepněte na přidat knoflík. Nakonec klikněte na OK knoflík. Viz screenshot:
3. V dalším vyskakovacím okně Extrahujte text V dialogovém okně vyberte prázdnou buňku pro vyhledání výsledku a poté klikněte na ikonu OK .
Poté jsou okamžitě extrahovány všechny desetinné hodnoty ve vybraném rozsahu. Viz screenshot:
Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.
Snadno extrahujte desítkovou hodnotu pomocí programu Kutools pro Excel
Relativní články:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
