Seleccionar filas con negrita de una tabla
Hola,
me gustaría saber cómo puedo hacer esto.
Resulta que tengo una tabla muy larga. Y solo algunas filas tienen todos sus valores (columnas) en negrita. El resto de filas, los valores no están en negrita. Ejemplo:
01 a b s r t y u
02 w e r t y u a
03 w e t j o i p
04 f g h j i k l z
05 l p b o r t l f
Pues eso, me gustaría poder seleccionar solo las filas en engrita (en este ejemplo 02 y 05) u otra opción, borrar las filas sin negrita.
Muchas gracias.
me gustaría saber cómo puedo hacer esto.
Resulta que tengo una tabla muy larga. Y solo algunas filas tienen todos sus valores (columnas) en negrita. El resto de filas, los valores no están en negrita. Ejemplo:
01 a b s r t y u
02 w e r t y u a
03 w e t j o i p
04 f g h j i k l z
05 l p b o r t l f
Pues eso, me gustaría poder seleccionar solo las filas en engrita (en este ejemplo 02 y 05) u otra opción, borrar las filas sin negrita.
Muchas gracias.
1 Respuesta
Respuesta de parmijo
1
Verifica esta macro
Sub borrar()
FilaA = Range("A65536").End(xlUp).Row
For x = 1 To FilaA
If Cells(x, 1).Font.Bold = False Then
Cells(x, 1) = Empty
End If
Next x
Sub borrar()
FilaA = Range("A65536").End(xlUp).Row
For x = 1 To FilaA If Cells(x, 1).Font.Bold = False Then Cells(x, 1) = Empty End IfNext x
Sub borrar()
FilaA = Range("A65536").End(xlUp).Row
For x = 1 To FilaA
If Cells(x, 1).Font.Bold = False Then
Cells(x, 1) = Empty
End If
Next x
Sub borrar()
FilaA = Range("A65536").End(xlUp).Row
For x = 1 To FilaA If Cells(x, 1).Font.Bold = False Then Cells(x, 1) = Empty End IfNext x
