¿Cómo borrar el contenido de las celdas según una condición en Excel?
A veces, puede que necesites borrar el contenido de las celdas basándote en condiciones en Excel, como borrar el contenido si la celda contiene un valor específico, borrar el contenido si hay celdas en blanco en otra columna o borrar el contenido de las celdas con un color de fondo específico, entre otros. Este artículo presentará algunos trucos para resolver estas tareas rápidamente y sin complicaciones.
Borrar el contenido de las celdas basado en el valor de la celda con código VBA
Borrar filas completas si el valor es mayor o menor que un valor específico con código VBA
Borrar contenido de celdas o filas basándose en el valor de la celda con una función práctica
Borrar filas completas si otra celda está en blanco con código VBA
Borrar el contenido de las celdas basado en el color de fondo con código VBA
Borrar el contenido de las celdas basado en el valor de la celda con código VBA
Por ejemplo, tienes el siguiente rango de datos, ahora quieres borrar el contenido de las celdas que contienen “Hoodie”, el siguiente código VBA te puede ayudar.
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: Borrar el contenido de las celdas si la celda es igual a un valor específico
Sub ClearContents()
'Updateby ExtendOffice
Dim xRng As Range
Dim xCell As Range
Dim xText As String
Set xRng = Application.Range("A2:A12")
xText = "Hoodie" 'Change this text to your own
For Each xCell In xRng
If xCell.Value = xText Then
xCell.clearContents
End If
Next xCell
End Sub
3. Luego, presiona la tecla F5 para ejecutar este código, y todas las celdas con el texto “Hoodie” se borrarán de inmediato, consulta la captura de pantalla:
Descubre la Magia de Excel con Kutools AI
- Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
- Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
- Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
- Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
- Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.
Borrar filas completas si el valor es mayor o menor que un valor específico con código VBA
Supongamos que tienes el siguiente rango de datos, para borrar todo el contenido de las filas si el valor en la columna D es mayor o menor que 300. Aquí, crearé un código VBA para completarlo.
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: Borrar filas completas si el valor de la celda es mayor o menor que un valor específico
Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
Set xRowRg = xRg.Rows.Item(xF)
xBol = False
For Each xCell In xRowRg.Cells
If Application.IsNumber(xCell.Value) Then
If xCell.Value > xStrValue Then
xBol = True
Exit For
End If
End If
Next
If xBol Then
xRowRg.EntireRow.clearContents
End If
Next
End Sub
3. Luego presiona la tecla F5 para ejecutar este código, y todo el contenido de las filas se borrará si el valor en la columna D es mayor que 300, consulta la captura de pantalla:
Borrar contenido de celdas o filas basándose en el valor de la celda con una función práctica
Si tienes Kutools para Excel, con su función Seleccionar Celdas Específicas, puedes seleccionar las celdas o filas basándote en un valor específico, y luego eliminar el contenido de las celdas de inmediato.
Después de instalar Kutools para Excel, por favor haz lo siguiente:
1. Selecciona el rango de datos con los valores que deseas borrar el contenido de las celdas o filas basándote en ellos, y luego, haz clic en Kutools > Seleccionar > Seleccionar Celdas Específicas, consulta la captura de pantalla:
2. En el cuadro de diálogo Seleccionar Celdas Específicas abierto, realiza las siguientes operaciones:
- Haz clic en Celda u Ordenar Filas Completas que deseas seleccionar;
- Especifica los criterios bajo la sección Especificar tipo según sea necesario. Aquí, quiero seleccionar las filas cuyo valor en la columna D es mayor que 300.
3. Luego haz clic en el botón Aceptar, y todas las filas con el valor mayor que 300 están seleccionadas. Ahora, solo necesitas presionar la tecla Suprimir en el teclado para eliminar el contenido de las celdas, consulta la captura de pantalla:
Borrar datos de filas en un rango si contiene celdas en blanco con código VBA
En este caso, si la celda en el rango de datos contiene algún espacio en blanco, quiero borrar los datos de las filas del rango como se muestra en la siguiente captura de pantalla.
Para completar esta tarea, por favor aplica el siguiente código VBA:
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 luego, pega el siguiente código en la Ventana del Módulo.
Código VBA: Borrar datos de filas si contiene celdas en blanco
Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
3. Luego, presiona la tecla F5 para ejecutar este código, y los datos de las filas con celdas en blanco se borrarán de inmediato en el rango específico según sea necesario.
Borrar el contenido de las celdas basado en el color de fondo con código VBA
Para borrar las celdas que están rellenas con un color de fondo específico, puedes usar el siguiente código VBA.
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 luego, pega el siguiente código en la Ventana del Módulo.
Código VBA: Borrar el contenido de las celdas basado en el color de fondo
Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Interior.Color = RGB(252, 228, 214) Then
xcell.Clearcontents
End If
Next
End Sub
3. Y luego, presiona la tecla F5 para ejecutar este código, y el contenido de las celdas con el color de fondo especificado se borra de inmediato. Consulta la captura de pantalla:
Las Mejores Herramientas de Productividad para Office
Kutools para Excel resuelve la mayoría de tus problemas y aumenta tu productividad en un 80%
- Barra de Fórmulas Super (editar fácilmente múltiples líneas de texto y fórmulas); Diseño de Lectura (leer y editar fácilmente grandes cantidades de celdas); Pegar en Rango Filtrado...
- Combinar Celdas/Filas/Columnas manteniendo los datos; Dividir contenido de celdas; Combinar filas duplicadas y Sumar/Promediar... Prevenir celdas duplicadas; Comparar rangos...
- Seleccionar filas duplicadas o únicas; Seleccionar filas en blanco (todas las celdas están vacías); Búsqueda Avanzada y Búsqueda Difusa en muchos libros de trabajo; Selección Aleatoria...
- Copia Exacta de múltiples celdas sin cambiar la referencia de la fórmula; Crear automáticamente referencias a múltiples hojas; Insertar viñetas, casillas de verificación y más...
- Favoritos e inserción rápida de fórmulas, rangos, gráficos e imágenes; Encriptar celdas con contraseña; Crear lista de correo y enviar correos electrónicos...
- Extraer texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir estadísticas de página; Convertir entre el contenido de las celdas y los comentarios...
- Super Filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes/semana/día, frecuencia y más; Filtro especial por negrita, cursiva...
- Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión masiva de xls, xlsx y PDF...
- Agrupación de Tabla Dinámica por número de semana, día de la semana y más... Mostrar celdas desbloqueadas, bloqueadas por diferentes colores; Resaltar celdas que tienen fórmula/nombre...
- Habilitar edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abrir y crear varios documentos en nuevas pestañas de la misma ventana, en lugar de en ventanas nuevas.
- ¡Aumenta tu productividad en un 50%, y reduce cientos de clics del ratón cada día!
