Hoe decimale waarde uit een string in Excel te extraheren?
In deze zelfstudie wordt uitgelegd hoe u een decimale waarde alleen uit een tekenreeks in Excel kunt extraheren.
Extraheer decimale waarde met formule in Excel
Extraheer decimale waarde met VBA in Excel
Extraheer eenvoudig decimale waarde met Kutools voor Excel
Extraheer decimale waarde met formule in Excel
Er zijn twee formules die u kunnen helpen bij het extraheren van decimale waarden uit een tekenreeks, kies er een uit die u nodig heeft.
De formule die onafhankelijk is van het teken van waarden:
Selecteer een cel en typ deze formule = ABS (A1-TRUNC (A1)) (A1 is de cel waaruit u de decimale waarde wilt extraheren) in de formulebalk en druk vervolgens op Enter sleutel. Blijf de eerste resultatencel selecteren, sleep de vulgreep omlaag om alle resultaten te krijgen. U kunt zien dat de decimale waarden alleen zonder teken worden geëxtraheerd, zoals hieronder wordt getoond.
De formule die het teken van waarden weerspiegelt:
Selecteer een cel en typ deze formule = A1-TRUNC (A1) (A1 is de cel waaruit u de decimale waarde wilt extraheren) in de formulebalk en druk vervolgens op Enter sleutel. Blijf de eerste resultatencel selecteren en sleep de vulgreep omlaag om alle resultaten te krijgen. U kunt zien dat de decimale waarden worden geëxtraheerd met een teken, zoals hieronder wordt getoond.
Extraheer eenvoudig decimale getallen uit een geselecteerd bereik in Excel:
Kutools for Excel's Extraheer tekst hulpprogramma helpt u eenvoudig alle decimale waarden uit een opgegeven bereik te extraheren, zoals de onderstaande demo laat zien.
Download en probeer het nu! (30 dagen gratis proefrit)
Extraheer decimale waarde met VBA in Excel
Er is een VBA die decimale waarden met het teken alleen uit strings kan extraheren.
1. druk op Alt + F11 om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klik in het pop-upvenster op Invoegen > Moduleen plak vervolgens de volgende VBA-code in de module.
VBA: extraheer alleen decimale waarden
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. druk de F5 sleutel om de code uit te voeren. Dan een Kutools for Excel dialoogvenster verschijnt, selecteer het bereik waaruit u alleen decimale waarden wilt extraheren en klik op de OK knop. Zie screenshot:
4. Dan nog een Kutools for Excel dialoogvenster verschijnt, moet u een cel selecteren om de geëxtraheerde decimale waarden te lokaliseren. Zie screenshot:
U kunt zien dat alleen de decimale waarden van opgegeven getallen worden geëxtraheerd en op een bepaald bereik worden geplaatst, zoals hieronder wordt weergegeven.
Extraheer eenvoudig decimale waarde met Kutools voor Excel
Als je de formule en VBA-methoden niet leuk vindt, introduceer ik je hier een handige tool - Kutools for Excel. Met zijn Extraheer tekst hulpprogramma, kunt u eenvoudig alle decimale waarden uit een bereik in Excel extraheren.
Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.
1. Selecteer het bereik met decimaal dat u wilt extraheren en klik op Kutools > Tekst > Extraheer tekst. Zie screenshot:
2. In de Extraheer tekst dialoogvenster, type .* in het tekstvak en klik vervolgens op het Toevoegen knop. Klik ten slotte op het OK knop. Zie screenshot:
3. In een ander opduiken Extraheer tekst dialoogvenster, selecteer een lege cel om het resultaat te zoeken en klik vervolgens op het OK knop.
Vervolgens worden alle decimale waarden in het geselecteerde bereik onmiddellijk geëxtraheerd. Zie screenshot:
Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
Extraheer eenvoudig decimale waarde met Kutools voor Excel
Relatieve artikelen:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
