¿Cómo eliminar celdas o filas que no estén en negrita en Excel?
Supongamos que tiene un rango de datos con texto en negrita y sin negrita, como se muestra en la siguiente captura de pantalla. Ahora necesita eliminar las celdas o filas que no estén en negrita. En lugar de borrarlas manualmente una por una, este tutorial le ofrece 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 
v Eliminar filas si no están en negrita con VBA
Para eliminar filas que no estén en negrita, puede usar un código VBA.
1. Pulse 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 VBA en la nueva ventana del Módulo.
VBA: Elimina 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 Sub3. Pulse la tecla F5 para ejecutar el código VBA. En el cuadro de diálogo emergente Kutools para Excel, especifique el rango del que desea eliminar las filas sin negrita y haga clic en el botón Aceptar.
A continuación, verá que se han eliminado las filas que no contienen texto en negrita.
Nota: solo se pueden eliminar filas cuando todas las celdas de dicha fila carecen de formato en negrita.
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.
Eliminar celdas si no están en negrita con Buscar y reemplazar y Asistente de Rango
Si solo desea eliminar el contenido de las celdas que no están en negrita, puede usar la función Buscar y reemplazar para seleccionar primero las celdas en negrita y, a continuación, utilizar la herramienta Kutools para Excel del Asistente de Rango para invertir la selección y eliminar el contenido de las que no están en negrita.
1. Seleccione el rango de datos del que desea eliminar las celdas que no están en negrita y pulse Ctrl + F para abrir el cuadro de diálogo Buscar y reemplazar, y haga clic en el botón Opciones. Vea la captura de pantalla:
2. Haga clic en Formato para abrir el cuadro de diálogo Formato de búsqueda. En la pestaña Fuente, seleccione Negrita en la lista de Estilo de fuente. Vea la captura de pantalla:
3. Haga clic en Aceptar > Buscar todo, y todas las palabras en negrita aparecerán listadas en el cuadro de diálogo Buscar y reemplazar. Pulse Ctrl + A para seleccionarlas todas y, a continuación, cierre el cuadro de diálogo Buscar y reemplazar. Vea la captura de pantalla:
4. Mantenga seleccionadas estas celdas y haga clic en Kutools > Seleccionar > Asistente de Rango. Vea la captura de pantalla:
5. En el cuadro de diálogo emergente, active primero la opción Selección Inversa y luego seleccione Rango de Datos Original. Ahora verá que la selección se ha invertido. Vea la captura de pantalla:
6. Haga clic en Cerrar. Ahora pulse la tecla Supr 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 sencillos. En ese caso, puede utilizar la utilidad Kutools para Excel de Seleccionar celdas con formato similar para identificar rápidamente las celdas que no están en negrita y eliminarlas.
Después de instalar gratuitamenteKutools para Excel, siga estos pasos:
1. Seleccione el rango de datos que necesite y haga clic en Kutools > Seleccionar > Seleccionar celdas con formato similar. Vea la captura de pantalla:
2. En el cuadro de diálogo emergente, haga clic en el botón Seleccionar formato desde celda para seleccionar una celda del Rango de datos que no esté en negrita y, a continuación, marque únicamente la opción Negrita en la lista inferior de la sección Fuente. Vea la captura de pantalla:
3. Haga clic en Aceptar y aparecerá un cuadro de diálogo indicando el número de celdas seleccionadas; simplemente haga clic en Sí para cerrarlo.
Ahora todas las celdas que no están en negrita están seleccionadas. Pulse la tecla Supr para eliminar su contenido. O bien, si desea eliminar las filas que no están en negrita, haga clic con el botón derecho en cualquiera de las celdas seleccionadas y elija Eliminar > Fila completa. Vea las capturas de pantalla:
Demostración: Eliminar celdas/filas si no están en negrita
Artículos relacionados:
- ¿Cómo convertir hipervínculos a texto sin formato en Excel?
- ¿Cómo contar las celdas que empiezan o terminan con un texto específico en Excel?
- ¿Cómo contar y eliminar duplicados de una lista en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos