Wie extrahiert man Dezimalwerte aus einer Zeichenfolge in Excel?

Dieses Tutorial zeigt Ihnen, wie Sie nur Dezimalwerte aus einer Zeichenfolge in Excel extrahieren.

Dezimalwert mit Formel in Excel extrahieren
Dezimalwert mit VBA in Excel extrahieren
Dezimalwert ganz einfach mit Kutools für Excel extrahieren

Dezimalwert mit Formel in Excel extrahieren

Es gibt zwei Formeln, die Ihnen helfen können, Dezimalwerte aus einer Zeichenfolge zu extrahieren. Wählen Sie eine davon, je nach Bedarf.

Die Formel, die unabhängig vom Vorzeichen der Werte ist:

Wählen Sie eine Zelle aus und geben Sie diese Formel =ABS(A1-TRUNC(A1)) (A1 ist die Zelle, aus der Sie den Dezimalwert extrahieren möchten) in die Formel-Leiste ein, und drücken Sie dann die Eingabetaste. Behalten Sie die Auswahl der ersten Ergebniszelle bei und ziehen Sie den Ausfüllkästchen nach unten, um alle Ergebnisse zu erhalten. Wie im folgenden Screenshot zu sehen, werden die Dezimalwerte ohne Vorzeichen extrahiert.

Die Formel, die das Vorzeichen der Werte widerspiegelt:

Wählen Sie eine Zelle aus und geben Sie diese Formel =A1-TRUNC(A1) (A1 ist die Zelle, aus der Sie den Dezimalwert extrahieren möchten) in die Formel-Leiste ein, und drücken Sie dann die Eingabetaste. Behalten Sie die Auswahl der ersten Ergebniszelle bei und ziehen Sie den Ausfüllkästchen nach unten, um alle Ergebnisse zu erhalten. Wie im folgenden Screenshot zu sehen, werden die Dezimalwerte mit Vorzeichen extrahiert.

Dezimalwert mit VBA in Excel extrahieren

Es gibt ein VBA, das Massen-Dezimalwerte nur mit dem Vorzeichen aus Zeichenfolgen extrahieren kann.

1. Drücken Sie Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie im Popup-Fenster auf Einfügen > Modul, und fügen Sie dann den folgenden VBA-Code in das Modul ein.

VBA: Nur Dezimalwerte extrahieren

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. Drücken Sie die F5-Taste, um den Code auszuführen. Dann erscheint ein Dialogfeld von Kutools für Excel. Bitte wählen Sie den Bereich aus, aus dem Sie nur Dezimalwerte extrahieren möchten, und klicken Sie auf die Schaltfläche OK. Siehe Screenshot:

4. Dann erscheint ein weiteres Dialogfeld von Kutools für Excel. Sie müssen eine Zelle auswählen, um die extrahierten Dezimalwerte zu platzieren. Siehe Screenshot:

Sie können sehen, dass nur die Dezimalwerte der angegebenen Zahlen extrahiert und in einen bestimmten Bereich platziert wurden, wie im folgenden Screenshot gezeigt.

Dezimalwert ganz einfach mit Kutools für Excel extrahieren

Wenn Sie die Methoden mit Formeln und VBA nicht mögen, stelle ich Ihnen hier ein praktisches Tool vor – Kutools für Excel. Mit seinem Hilfsprogramm zum Extrahieren von Text können Sie ganz einfach alle Dezimalwerte aus einem Bereich in Excel extrahieren.

1. Wählen Sie den Bereich mit den Dezimalwerten aus, die Sie extrahieren möchten, und klicken Sie dann auf Kutools > Text > Text extrahieren. Siehe Screenshot:

2. Geben Sie im Dialogfeld „Text extrahieren“ .* in das Textfeld ein, und klicken Sie dann auf die Schaltfläche Hinzufügen. Klicken Sie abschließend auf die Schaltfläche OK. Siehe Screenshot:

3. Wählen Sie in einem weiteren Dialogfeld „Text extrahieren“, das angezeigt wird, eine leere Zelle aus, um das Ergebnis zu platzieren, und klicken Sie dann auf die Schaltfläche OK.

Dann werden alle Dezimalwerte im ausgewählten Bereich sofort extrahiert. Siehe Screenshot:

Verwandte Artikel:

• Nur Zeit oder Stunde in Excel extrahieren