Hoe decimale waarde uit een tekenreeks te extraheren Excel?
In deze tutorial wordt uitgelegd hoe u de decimale waarde alleen uit een tekenreeks kunt extraheren Excel.
Extraheer decimale waarde met formule in Excel
Extraheer de decimale waarde met VBA in Excel
Extraheer eenvoudig decimale waarden met Kutools for 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-dag gratis parcours)
Extraheer de 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 waarden met Kutools for 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 extraheren Excel.
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 wilt hebben (30-dag) van dit hulpprogramma, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
Extraheer eenvoudig decimale waarden met Kutools for Excel
Relatieve artikelen:
Beste Office-productiviteitstools
Ondersteunt kantoor/Excel 2007-2021 en 365 | Beschikbaar in 44 talen | Gemakkelijk volledig te verwijderen
Kutools for Excel Beschikt over meer dan 300 functies, Ervoor zorgen dat wat u nodig heeft slechts één klik verwijderd is...
Geef uw Excel Vaardigheden: Ervaar efficiëntie als nooit tevoren met Kutools for Excel (Gratis proefperiode van 30 dagen met volledige functionaliteit)
Office Tab Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en inlezen met tabbladen in Word, Excel, Power Point, 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 elke dag honderden muisklikken voor u! (Gratis proefperiode van 30 dagen met volledige functionaliteit)
