¿Cómo borrar el contenido de la celda según la condición en Excel?
A veces, es posible que deba borrar el contenido de la celda según las condiciones de Excel, como borrar el contenido de la celda si la celda contiene un valor específico, borrar el contenido de la celda si hay celdas en blanco en otra columna o borrar el contenido de la celda con un color de fondo específico, etc. Este artículo presentará algunos trucos para resolver estas tareas de forma rápida y sencilla.
Borrar contenido de celda Basado en valor de celda con código VBA
Borre filas enteras si el valor es mayor o menor que un valor específico con código VBA
Borre el contenido de celdas o filas según el valor de la celda con una función práctica
Borre filas enteras si otra celda está en blanco con código VBA
Borre el contenido de la celda según el color de fondo con el código VBA
Borrar contenido de celda Basado en valor de celda con código VBA
Por ejemplo, tiene el siguiente rango de datos, ahora desea borrar el contenido de la celda que es "Sudadera con capucha", el siguiente código de VBA puede hacerle un favor.
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.
Código de VBA: borre el 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. Entonces presione F5 para ejecutar este código, y todas las celdas con el texto "Sudadera con capucha" se borran a la vez, vea la captura de pantalla:
Borre filas enteras si el valor es mayor o menor que un valor específico con código VBA
Supongamos que tiene el rango de datos a continuación, para borrar el contenido completo de la fila si el valor en la columna D es mayor o menor que 300. Aquí, crearé un código VBA para completarlo.
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.
Código de VBA: borre filas enteras 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. Entonces presione F5 clave para ejecutar este código, y todos los contenidos de la fila se borran si el valor en la columna D es mayor que 300, vea la captura de pantalla:
Borre el contenido de celdas o filas según el valor de la celda con una función práctica
Si tiene Kutools for Excel, Con su Seleccionar celdas específicas característica, puede seleccionar las celdas o filas según el valor específico y luego eliminar el contenido de la celda a la vez.
Después de instalar Kutools for Excel, haz lo siguiente:
1. Seleccione el rango de datos con valores en los que desea borrar el contenido de la fila o la celda en función y, a continuación, haga clic en Kutools > Seleccione > Seleccionar celdas específicas, ver captura de pantalla:
2. En el abierto Seleccionar celdas específicas cuadro de diálogo, realice las siguientes operaciones:
- Haga clic Celular or Fila completa que desea seleccionar;
- Especifique los criterios bajo el Tipo específico sección que necesite. Aquí, quiero seleccionar las filas cuyo valor en la columna D sea mayor que 300.
3. Luego haga clic Ok y se seleccionan todas las filas con un valor superior a 300. Ahora, solo necesita presionar la tecla Eliminar en el teclado para eliminar el contenido de la celda, vea la captura de pantalla:
Borre los datos de filas en un rango si contiene una celda en blanco con código VBA
En este caso, si la celda en el rango de datos contiene espacios en blanco, quiero borrar los datos de las filas del rango como se muestra a continuación.
Para finalizar esta tarea, aplique el siguiente código VBA:
1. Mantenga pulsado el botón ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy, a continuación, pegue el siguiente código en el Módulo Ventana.
Código de VBA: borre los datos de las filas si contiene una celda 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. Entonces presione F5 clave para ejecutar este código, y los datos de las filas con celdas en blanco se borran de inmediato en el rango específico que necesita.
Borre el contenido de la celda según el color de fondo con el código VBA
Para borrar las celdas que están llenas con un color de fondo específico, puede usar el siguiente código VBA.
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy, a continuación, pegue el siguiente código en el Módulo Ventana.
Código de VBA: contenido de celda claro según 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, presione F5 para ejecutar este código, y el contenido de la celda con el color de fondo especificado se borrará inmediatamente. Ver captura de pantalla:
Las mejores herramientas de productividad de oficina
Kutools for Excel Resuelve la mayoría de sus problemas y aumenta su productividad en un 80 %
- Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
- Combinar celdas / filas / columnas y conservación de datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir celdas duplicadas; Comparar rangos...
- Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
- Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
- Fórmulas favoritas e insertar rápidamente, Rangos, gráficos e imágenes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
- Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
- Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
- Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
- Agrupación de tablas dinámicas por número de semana, día de la semana y más ... Mostrar celdas bloqueadas y desbloqueadas por diferentes colores; Resalte las celdas que tienen fórmula / nombre...
- 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!
