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

14 Mar Extraer todos los valores con o sin formato cursiva de una celda

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

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

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

Si lo que deseamos es extraer los valores sin formato cursiva de una celda, debemos reemplazar “If Rng.Characters(i, 1).Font.Italic Then” por “If Rng.Characters(i, 1).Font.Italic = 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.