Extrair Apelido

Fórmula em C2:

=SUBSTITUIR(A2;1;PROCURAR(“#”;SUBST(A2;” “;”#”;NÚM.CARACT(A2)-NÚM.CARACT(SUBST(A2;” “;””))));””)

Função em C3 : =Apelido(A2)

VBA:

Function Apelido(r As Range) As Variant
Dim s As String
         s = Trim(r.Value)
        Apelido = Mid(s, InStrRev(s, ” “) + 1)
End Function