Este fórum está sendo desativado

[GustavoSouza]

Bom dia senhores...

Existe alguma função/fórmula que retorne para mim apenas o texto (ou a palavra) que esteja em negrito na célula?

Exemplo:

Na célula A1 eu tenho o seguinte texto: Amanda Pardiola Leite
E o sobrenome LEITE está em negrito.

Na célula B1 quero que retorne apenas o sobrenome LEITE.

Se isso é possível, posso ter o mesmo resultado quando houver mais de um sobrenome em negrito? Caso a parte em negrito fosse "Amanda Leite", retornaria da mesma forma??

Desde já grato pela colaboração!!!

[osvaldomp]

Segue uma solução via UDF.

Instale uma cópia da função abaixo em um módulo comum, assim:
1. copie a função daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor / Inserir / Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar
6. em B1 coloque ~~~> =ExtNegr(A1) e em seguida arraste para baixo

Código: Selecionar todos

Function ExtNegr(c As Range) As String
 Dim k As Long
  ExtNegr = c(1).Value
  For k = 1 To Len(ExtNegr)
   If Not c(1).Characters(k, 1).Font.Bold Then Mid(ExtNegr, k) = " "
  Next
  ExtNegr = Application.Trim(ExtNegr)
End Function