¿Cómo borrar el contenido de una celda en Excel según una condición?
A veces puede necesitar borrar el contenido de celdas en Excel según ciertas condiciones, como eliminar datos si las celdas contienen un valor específico, si hay celdas vacías en otra columna o si presentan un color de fondo determinado, entre otros casos. Este artículo le mostrará algunos trucos para realizar estas tareas de forma rápida y sencilla.
Borrar contenido de la celda según el valor de la celda con código VBA
Borrar Fila completa si el valor es mayor o menor que un valor específico con código VBA
Borrar el contenido de celdas o filas según el valor de la celda con una función práctica
Borrar Fila completa si otra celda está vacía con código VBA
Borrar contenido de la celda según Color de fondo con código VBA
Borrar contenido de la celda según el valor de la celda con código VBA
Por ejemplo, dispone del siguiente rango de datos y desea borrar el contenido de las celdas que contienen “Hoodie”. El siguiente código VBA le ayudará.
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del módulo.
Código VBA: Borrar contenido de la celda 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. A continuación, pulse la tecla F5 para ejecutar este código y todas las celdas con el texto «Hoodie» se borrarán al instante. Vea la captura de pantalla:
Descubra la magia de Excel con KUTOOLS AI
- Ejecución inteligente: Realice operaciones en celdas, analice datos y cree gráficos con comandos sencillos.
- fórmulas personalizadas: Cree fórmulas a medida para optimizar sus flujos de trabajo.
- Programación en VBA: Escriba e implemente código VBA con facilidad.
- Interpretación de fórmulas: Entienda las fórmulas complejas con facilidad.
- Traducción de texto: Rompa las barreras del idioma directamente en sus hojas de cálculo.
Borrar Fila completa si el valor es mayor o menor que un valor específico con código VBA
Supongamos que tiene el siguiente rango de datos y desea borrar el contenido de toda la fila si el valor en la columna D es mayor o menor que 300. A continuación, crearé un código VBA para llevar a cabo esta tarea.
1. Mantén pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar>Móduloy pegue el siguiente código en la ventana del módulo.
Código VBA: Borrar Fila completa 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. A continuación, pulse la tecla F5 para ejecutar este código y se borrará todo el contenido de las filas si el valor en la columna D es mayor que 300. Vea la captura de pantalla:
Borrar el contenido de celdas o filas según el valor de la celda con una función práctica
Si dispone de Kutools para Excel, con su función Seleccionar celdas específicas podrá seleccionar celdas o filas según un valor específico y, a continuación, eliminar el contenido de las celdas de forma masiva.
Tras instalar Kutools para Excel, proceda de la siguiente manera:
1. Seleccione el rango de datos con los valores en función de los cuales desea borrar el contenido de celdas o filas y, a continuación, haga clic en Kutools > Seleccionar > Seleccionar celdas específicas. Vea la captura de pantalla:
2. En el cuadro de diálogo Seleccionar celdas específicas que se abre, realice las siguientes operaciones:
- Haga clic en Celdao Fila completaque desee seleccionar;
- Especifique los criterios en la sección Especificar tipo según sus necesidades. En este caso, quiero seleccionar las filas cuyo valor en la columna D sea mayor que 300.
3. A continuación, haga clic en el botón Aceptar y se seleccionarán todas las filas con un valor mayor que 300. Ahora solo tiene que pulsar la tecla Supr del teclado para eliminar el contenido de las celdas. Vea la captura de pantalla:
Borrar filas Datos dentro de la selección si contienen una celda vacía con código VBA
En este caso, si la celda de la Rango de datos contiene alguna celda vacía, deseo borrar los datos de las filas del rango, tal como se muestra en la siguiente captura de pantalla.
Para realizar esta tarea, aplique el siguiente código VBA:
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y, a continuación, pegue el siguiente código en la ventana del Módulo.
Código VBA: Borrar los datos de las filas si contienen una celda vacía
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. A continuación, pulse la tecla F5 para ejecutar este código y se borrarán al instante los datos de las filas con celdas vacías en el rango especificado.
Borrar contenido de la celda según Color de fondo con código VBA
Para borrar las celdas rellenas con un Color de fondo específico, puede utilizar el siguiente código VBA.
1. Mantenga pulsadas las teclas ALT + F11para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar>Móduloy, a continuación, pegue el siguiente código en la ventana del Módulo.
Código VBA: Borrar contenido de la celda según 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. A continuación, pulse la tecla F5 para ejecutar este código y se borrará inmediatamente el contenido de las celdas con el color de fondo especificado. Vea la captura de pantalla:
Las mejores herramientas de productividad para Office
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en 80 %
- Super Barra de fórmulas (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (lea y edite cómodamente un gran número de celdas); Pegar en Rango de filtro...
- Fusionar celdas, filas o columnas manteniendo los datos; dividir el contenido de las celdas; combinar filas duplicadas y sumar o calcular el promedio...; evitar entradas duplicadas en celdas; comparar rangos...
- Seleccionar filas duplicadas o únicas;Seleccionar filas en blanco (todas las celdas vacías);Búsqueda avanzada y búsqueda difusa en varios libros de trabajo; selección aleatoria…
- Copia celdas exactamente sin que cambien las referencias de las fórmulas; crea referencias automáticamente en varias hojas; inserta viñetas, casillas de verificación y mucho más...
- Favoritas e inserción rápida de fórmulas, rangos, gráficos e imágenes; cifrado de celdas con contraseña; creación de listas de correo y envío de correos electrónicos…
- Extraer texto, agregar texto, eliminar caracteres en una posición, eliminar espacios; crear e imprimir estadísticas de la página de datos; convertir entre contenido de celdas y comentarios...
- Super Filtro (guarde y aplique esquemas de filtro en otras hojas); Clasificación avanzada por mes, semana, día, frecuencia y más; Filtro especial por negrita, cursiva…
- Combina libros y hojas de trabajo; combina tablas basadas en una columna clave; divide datos en varias hojas; conversión masiva de archivos XLS, XLSX y PDF...
- Agrupación en Tabla Dinámica por número de semana, día de la semana y más…Mostrar celdas desbloqueadas y bloquear la selección con colores diferenciados;Resaltar celdas que contienen fórmulas o nombres…
- 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 hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y ahorre cientos de clics del ratón cada día!
