Note: The other languages of the website are Google-translated. Back to English

¿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
Nota:: En el código anterior, A2: A12 es el rango de datos del que desea borrar el contenido de la celda, el texto "Hoodie” es el valor específico que desea borrar. Por favor, cámbielos por los suyos.

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
Nota:: En el código anterior, D2: D12 si el rango de datos contiene el valor específico en el que desea borrar las filas; 300 es el valor específico; la > personaje dentro del guion Si xCell.Value > xStrValue Entonces significa mayor que, usar menos que, cambiarlo a < carácter como usted necesita.

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 > Selecciona > Seleccionar celdas específicas, ver captura de pantalla:

2. En el abierto Seleccionar celdas específicas cuadro de diálogo, realice las siguientes operaciones:

  • Presione 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:

Consejos: Hay muchos otros criterios que puede usar, especifique su propia condición en el cuadro de diálogo como se muestra a continuación:

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
Nota:: En el código anterior, A2: D12 es el rango de datos contiene celdas en blanco de las que desea borrar el contenido de la celda.

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
Nota:: En el código anterior, A2: D12 es el rango de datos que desea usar, RGB (252, 228, 214) es el color específico en el que desea borrar las celdas, puede extraer el modo RGB del color de fondo usando el PINTURA programa en tu computadora.

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:



  • 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...
pestaña kte 201905
  • 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!
officetab parte inferior
Comentarios (0)
Aún no hay calificaciones. ¡Sé el primero en calificar!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas