Veja se ajuda .
Observação: só funciona para 3 ou mais 'nomes'.

=EXT.TEXTO(A1;LOCALIZAR("-";A1;1)+2;LOCALIZAR(" ";A1;LOCALIZAR(" ";A1;LOCALIZAR("-";A1;1)+2)+1)-LOCALIZAR("-";A1;1)-2)

Edson muito obrigado era isso mesmo minha necessidade. Valeu.

silvajmp

Edson ou a galera do fórum, fiz o teste nos primeiros nomes deu certo, mas esqueci da sua observação que só funcionária somente para 3 ou mais nomes, pois na minha lista tem nomes somente com 2 palavras, exemplo Valdir Pereira, o resultado da formula esta aparecendo "#VALOR", podem me ajudar.
Formula utilizada:

=EXT.TEXTO(A1;LOCALIZAR("-";A1;1)+2;LOCALIZAR(" ";A1;LOCALIZAR(" ";A1;LOCALIZAR("-";A1;1)+2)+1)-LOCALIZAR("-";A1;1)-2)

silvajmp

Tenta assim:

=EXT.TEXTO(A1;PESQUISAR("- ";A1)+2;SEERRO(PESQUISAR("@";SUBSTITUIR(A1;" ";"@";4))-(PESQUISAR("- ";A1)+2);NÚM.CARACT(A1)))

Gilmar boa noite, obrigado novamente por contribuir, testei a sua formula, mas não deu certo, o resultado da "#NOME?", tenho outra postagem em aberto Organizar dados da exporta do meu sistema que você mesmo contribuiu, e para a mesma necessidade só que em vba, se não for pedir muito poderia contribuir com as duas maneiras (formula e vba)? Pode ser que tenhamos usuários e visitantes com a mesma duvida.

Desde já agradeço,

silva_jmp

Silva,

esse erro provavelmente é devido a uma função que não tenha no seu Excel. Qual versão vc utiliza?

Gilmar bom dia, minha versão tanto no note ou no trabalho são win7.

silvajmp

Silva,

Com base no teu outro tópico, em que vc quer eliminar as palavras átonas (DE, DOS etc.), eu refiz a fórmula.

Segue o mesmo porém do outro tópico, se a palavra tiver até 3 caracteres, vai ser desconsiderada. Espero que ninguém tenha sobrenome com 3 letras. Experimente:

=EXT.TEXTO(A1;PROCURAR("- ";A1)+2;PROCURAR("@";SUBSTITUIR(A1;" "; "@";3))-(PROCURAR("- ";A1)+1))&SE(ÉERROS(PROCURAR("@";SUBSTITUIR(A1;" "; "@";4)));EXT.TEXTO(A1;PROCURAR("@";SUBSTITUIR(A1;" "; "@";3))+1;SE(ÉERROS(PROCURAR("@";SUBSTITUIR(A1;" "; "@";4)));NÚM.CARACT(A1);PROCURAR("@";SUBSTITUIR(A1;" "; "@";4))-PROCURAR("@";SUBSTITUIR(A1;" "; "@";3)))-1);SE(PROCURAR("@";SUBSTITUIR(A1;" "; "@";4))-PROCURAR("@";SUBSTITUIR(A1;" "; "@";3))<=4;EXT.TEXTO(A1;PROCURAR("@";SUBSTITUIR(A1;" "; "@";4))+1;SE(ÉERROS(PROCURAR("@";SUBSTITUIR(A1;" "; "@";5)));NÚM.CARACT(A1);PROCURAR("@";SUBSTITUIR(A1;" "; "@";5))-PROCURAR("@";SUBSTITUIR(A1;" "; "@";4)))-1);EXT.TEXTO(A1;PROCURAR("@";SUBSTITUIR(A1;" "; "@";3))+1;SE(ÉERROS(PROCURAR("@";SUBSTITUIR(A1;" "; "@";4)));NÚM.CARACT(A1);PROCURAR("@";SUBSTITUIR(A1;" "; "@";4))-PROCURAR("@";SUBSTITUIR(A1;" "; "@";3)))-1)))

Gilmar bom dia, valeu cara deu certo, obrigado por contribuir.

silvajmp