¿Cómo eliminar celdas o filas si no están en negrita en Excel?

Supongamos que tienes un rango de datos con celdas en negrita y celdas sin negrita, como se muestra en la captura de pantalla a continuación. Ahora lo que necesitas es eliminar las celdas o filas si no están en negrita. En lugar de eliminar manualmente una por una las celdas que no están en negrita, este tutorial te presenta algunos trucos para resolverlo rápidamente en Excel.

Eliminar filas si no están en negrita con VBA

Eliminar celdas si no están en negrita con Buscar y Reemplazar y Asistente de Rango

Eliminar filas/celdas si no están en negrita con Kutools para Excel

Para eliminar filas si no están en negrita, puedes usar un código VBA para manejarlo.

1. Presiona las teclas F11 + Alt para habilitar la ventana Microsoft Visual Basic for Applications.

2. Haz clic en Insertar > Módulo, luego pega el siguiente código VBA en la nueva ventana de Módulo.

VBA: Eliminar filas si no están en negrita.

Sub DeleteNonBolded()
'UpdatebyKutoolsforExcel20151116
    Dim xRg As Range
    Dim xDelRg As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim I As Long
    Dim xBold As Variant
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "This VBA cannot support multiple range", , "Kutools for Excel"
        Exit Sub
    End If
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        xBold = xRg.Rows(I).Cells.Font.Bold
        If TypeName(xBold) = "Boolean" Then
            If xBold = False Then
                If xDelRg Is Nothing Then
                    Set xDelRg = xRg.Rows(I).EntireRow
                Else
                    Set xDelRg = Union(xRg.Rows(I).EntireRow, xDelRg)
                End If
            End If
        End If
    Next
    xDelRg.Delete
    Application.ScreenUpdating = xUpdate
End Sub

3. Presiona la tecla F5 para ejecutar el código VBA. En el cuadro de diálogo emergente de Kutools para Excel, especifica el rango donde deseas eliminar las filas que no contienen celdas en negrita y haz clic en el botón Aceptar.

Luego podrás ver que las filas que no contienen celdas en negrita han sido eliminadas.

Nota: Las filas solo pueden ser eliminadas cuando todas las celdas en la misma fila no están en negrita.

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.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Eliminar celdas si no están en negrita con Buscar y Reemplazar y Asistente de Rango

Si solo quieres eliminar el contenido de las celdas que no están en negrita, puedes usar la función Buscar y Reemplazar para seleccionar primero las celdas en negrita, luego usa el Asistente de Rango de Kutools para Excel para invertir la selección de las celdas que no están en negrita y luego eliminar el contenido.

1. Selecciona el rango de datos donde deseas eliminar las celdas que no están en negrita, y presiona Ctrl + F para habilitar el cuadro de diálogo Buscar y Reemplazar, y haz clic en el botón Opciones. Ver captura de pantalla:

2. Haz clic en Formato para ir al cuadro de diálogo Formato de Búsqueda, y bajo la pestaña Fuente, selecciona Negrita de la lista de Estilo de fuente. Ver captura de pantalla:

3. Haz clic en Aceptar > Buscar todo, y todas las celdas en negrita se listarán en el cuadro de diálogo Buscar y Reemplazar, y presiona Ctrl +A para seleccionarlas todas, luego cierra el cuadro de diálogo Buscar y Reemplazar. Ver captura de pantalla:

4. Luego mantén estas celdas seleccionadas y haz clic en Kutools > Seleccionar > Asistente de Rango. Ver captura de pantalla:

5. En el cuadro de diálogo emergente, marca la opción Invertir Selección primero, y luego selecciona el rango de datos original. Ahora puedes ver que la selección está invertida. Ver captura de pantalla:

6. Haz clic en Cerrar. Ahora presiona la tecla Suprimir para eliminar el contenido de las celdas que no están en negrita.

Eliminar filas/celdas si no están en negrita con Kutools para Excel

Los métodos anteriores no son lo suficientemente fáciles; en este caso, puedes usar la utilidad Seleccionar celdas con formato de Kutools para Excel para identificar rápidamente las celdas que no están en negrita y luego eliminarlas.

Después de instalar gratuitamente Kutools para Excel, por favor sigue los pasos a continuación:

1. Selecciona el rango de datos que necesitas, y haz clic en Kutools > Seleccionar > Seleccionar celdas con formato. Ver captura de pantalla:

2. En el cuadro de diálogo emergente, haz clic en el botón Seleccionar formato desde celda para seleccionar una celda que no esté en negrita del rango de datos, luego marca Solo negrita de la lista a continuación en la sección Fuente. Ver captura de pantalla:

3. Haz clic en Aceptar, y aparecerá un cuadro de diálogo indicándote el número de celdas seleccionadas, simplemente haz clic en Sí para cerrarlo.

Ahora todas las celdas que no están en negrita están seleccionadas, y presiona la tecla Suprimir para eliminar el contenido de las celdas. O si deseas eliminar las filas que no están en negrita, haz clic derecho en cualquiera de las celdas seleccionadas y selecciona Eliminar > Fila completa. Ver capturas de pantalla:

Demostración: Eliminar celdas/filas si no están en negrita

Artículos relacionados:

• ¿Cómo convertir hipervínculos a texto plano en Excel?
• ¿Cómo contar si las celdas comienzan o terminan con un texto específico en Excel?
• ¿Cómo contar y eliminar duplicados de una lista en Excel?