Extraer todos los valores con o sin formato negrita de una celda

15 Mar Extraer todos los valores con o sin formato negrita de una celda

Sintaxis de la función: =BOLDTEXT(A1)

La siguiente macro nos permite extraer todos los valores con formato negrita de una celda:

Function BOLDTEXT(ByVal RNG As Range) As Variant
'ONLY ONE CELL
If RNG.Count <> 1 Then
'RETURN ERROR
BOLDTEXT = CVErr(xlErrNum)
End If
Dim I As Long
'PROCESS EACH CHARACTER
BOLDTEXT = ""
For I = 1 To Len(RNG.Text)
If RNG.Characters(I, 1).Font.Bold = False Then
BOLDTEXT = BOLDTEXT & RNG.Characters(I, 1).Text
End If
Next I
End Function

Si lo que deseamos es extraer los valores sin formato negrita de una celda, debemos reemplazar “If Rng.Characters(i, 1).Font.Bold Then” por “If Rng.Characters(i, 1).Font.Bold = False Then” dentro de la sintaxis.

Te recomiendo ver el siguiente link con más videos de Macros útiles de Excel AQUÍ.

¿No sabés como instalar esta macro? ¡No te preocupes!  Aquí está la solución:

Salvo aclaración, todas las fórmulas y macros de este sitio están configuradas para aplicarse sobre la celda A1. Algunas fórmulas se encuentran encerradas entre llaves {} debido a que son fórmulas matriciales. Estas llaves no deben introducirse tecleándolas, sino que se generan automáticamente al aceptar la fórmula pulsando Control+Shift+Enter al mismo tiempo. Las fórmulas de este sitio son compatibles con versiones de Microsoft Excel® 2010 o superiores.