¿Cómo extraer el valor decimal de una cadena en Excel?

Este tutorial le mostrará cómo extraer solo el valor decimal de una cadena en Excel.

Extraer el valor decimal con fórmula en Excel
Extraer el valor decimal con VBA en Excel
Extraer fácilmente el valor decimal con Kutools para Excel

Extraer el valor decimal con fórmula en Excel

Hay dos fórmulas que pueden ayudarle a extraer el valor decimal de una cadena, elija una de ellas según sea necesario.

La fórmula que no tiene en cuenta el signo de los valores:

Seleccione una celda y escriba esta fórmula =ABS(A1-TRUNC(A1)) (A1 es la celda de la que desea extraer el valor decimal) en la Barra de fórmulas, y luego presione la tecla Enter. Mantenga seleccionada la primera celda de resultado, arrastre el controlador de relleno hacia abajo para obtener todos los resultados. Puede ver que se extraen solo los valores decimales sin signo como se muestra en la siguiente captura de pantalla.

La fórmula que refleja el signo de los valores:

Seleccione una celda y escriba esta fórmula =A1-TRUNC(A1) (A1 es la celda de la que desea extraer el valor decimal) en la Barra de fórmulas, y luego presione la tecla Enter. Mantenga seleccionada la primera celda de resultado, y arrastre el controlador de relleno hacia abajo para obtener todos los resultados. Puede ver que los valores decimales se extraen con signo como se muestra en la siguiente captura de pantalla.

Extraer el valor decimal con VBA en Excel

Existe un VBA que puede extraer masivamente valores decimales con signo únicamente de cadenas.

1. Presione Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana emergente, haga clic en Insertar > Módulo, luego pegue el siguiente código VBA en el módulo.

VBA: Extraer solo valores decimales

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. Presione la tecla F5 para ejecutar el código. Luego aparecerá un cuadro de diálogo de Kutools para Excel, seleccione el rango del que desea extraer solo los valores decimales y haga clic en el botón Aceptar. Ver captura de pantalla:

4. Luego aparece otro cuadro de diálogo de Kutools para Excel, necesita seleccionar una celda para ubicar los valores decimales extraídos. Ver captura de pantalla:

Puede ver que solo se extraen los valores decimales de los números especificados y se colocan en un rango determinado como se muestra en la siguiente captura de pantalla.

Extraiga fácilmente el valor decimal con Kutools para Excel

Si no le gustan los métodos de fórmulas y VBA, aquí le presento una herramienta práctica: Kutools para Excel. Con su utilidad Extraer Texto, puede extraer fácilmente todos los valores decimales de un rango en Excel.

1. Seleccione el rango con decimales que desea extraer, y luego haga clic en Kutools > Texto > Extraer Texto. Ver captura de pantalla:

2. En el cuadro de diálogo Extraer Texto, escriba .* en el cuadro de texto, y luego haga clic en el botón Agregar. Finalmente, haga clic en el botón Aceptar. Ver captura de pantalla:

3. En otro cuadro de diálogo Extraer Texto que aparece, seleccione una celda en blanco para ubicar el resultado, y luego haga clic en el botón Aceptar.

Luego, todos los valores decimales en el rango seleccionado se extraen de inmediato. Ver captura de pantalla:

Artículos Relacionados:

• Extraer solo tiempo u hora en Excel