¿Cómo reemplazar celdas no vacías con un valor específico en Excel?
En Excel, podemos reemplazar o completar rápida y fácilmente una selección con un valor específico presionando Ctrl + Enter claves, pero, ¿sabe cómo reemplazar solo celdas no vacías con un cierto valor en su rango seleccionado que contiene celdas en blanco y celdas de valor?
Reemplace las celdas no vacías con un valor específico mediante la función Buscar y reemplazar
Reemplace las celdas no vacías con un valor específico utilizando el código VBA
Reemplace las celdas no vacías con un valor específico mediante la función Buscar y reemplazar
En Excel, la función Buscar y reemplazar puede ayudarnos a encontrar todas las celdas que no están en blanco y luego reemplazarlas con un valor especificado como desee.
1. Seleccione el rango de datos que desea reemplazar solo las celdas de valor.
2. Y luego presione Ctrl + H para abrir el Buscar y reemplazar cuadro de diálogo, en el Buscar y reemplazar diálogo, bajo Reemplaza pestaña, tipo * existentes Encuentra lo que campo e ingrese el valor que necesita en Reemplazar con cuadro de texto, ver captura de pantalla:
3. Luego haga clic reemplazar todo y aparecerá un cuadro de diálogo para indicarle la cantidad de celdas que se reemplazarán, cierre los cuadros de diálogo, luego todos los valores en el rango seleccionado han sido reemplazados con sus datos especificados, vea capturas de pantalla:
Reemplace las celdas no vacías con un valor específico utilizando el código VBA
Al usar el siguiente código VBA, también puede reemplazar todas las celdas de datos a sus valores necesarios a la vez. Por favor haz lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para aplicaciones.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de VBA: reemplace las 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. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro emergente para recordarle que seleccione un rango en el que desea reemplazar los datos, vea la captura de pantalla:
4. Luego haga clic OKe ingrese su valor específico en el siguiente cuadro de solicitud, vea la captura de pantalla:
5. Y luego haz clic OK, todos los valores en su rango seleccionado han sido reemplazados con ciertos datos a la vez.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!