¿Cómo reemplazar celdas no vacías con un valor específico en Excel?

En Excel, podemos reemplazar o llenar rápidamente una selección con un valor específico presionando las teclas Ctrl + Enter, pero, ¿sabes cómo reemplazar solo las celdas no vacías con un valor determinado en tu rango seleccionado que contiene tanto celdas en blanco como celdas con valores?

Reemplazar celdas no vacías con un valor específico utilizando la función Buscar y Reemplazar

Reemplazar celdas no vacías con un valor específico utilizando código VBA

Reemplazar celdas no vacías con un valor específico utilizando la función Buscar y Reemplazar

En Excel, la función Buscar y Reemplazar puede ayudarnos a encontrar todas las celdas no vacías y luego reemplazarlas con un valor especificado según lo desees.

1. Selecciona el rango de datos donde deseas reemplazar solo las celdas con valores.

2. Luego presiona Ctrl + H para abrir el cuadro de diálogo Buscar y Reemplazar; en el cuadro de diálogo Buscar y Reemplazar, bajo la pestaña Reemplazar, escribe * en el campo Buscar lo siguiente, e introduce el valor que necesitas en el cuadro de texto Reemplazar con, ver captura de pantalla:

3. Luego haz clic en el botón Reemplazar Todo, y aparecerá un cuadro de diálogo indicándote el número de celdas que se van a reemplazar, cierra los cuadros de diálogo, y todos los valores en el rango seleccionado habrán sido reemplazados por tus datos especificados, ver capturas de pantalla:

Reemplazar celdas no vacías con un valor específico utilizando código VBA

Al usar el siguiente código VBA, también puedes reemplazar todas las celdas de datos por los valores que necesites de una vez. Por favor, sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Reemplazar celdas no vacías con un valor específico

Sub ReplaceNumbers()
'Update 20141111
    Dim SRg As Range
    Dim Rg As Range
    Dim Str As Variant
    On Error Resume Next
    Set SRg = Application.Selection
    Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
    If Err <> 0 Then Exit Sub
    Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
    If Str = False Then Exit Sub
    For Each Rg In SRg
        If Rg <> "" Then Rg = Str
    Next
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo recordándote que selecciones un rango donde deseas reemplazar los datos, ver captura de pantalla:

4. Luego haz clic en Aceptar, e introduce tu valor específico en el siguiente cuadro de diálogo, ver captura de pantalla:

5. Luego haz clic en Aceptar, y todos los valores en tu rango seleccionado habrán sido reemplazados con los datos específicos de una vez.