Vc topa usar UDF, função VBA para quebrar conteúdo ?
Eu criei uma função outro dia, chamei de elemento... Pra pegar o enésimo item de uma célula, quebrando-a por um delimitador qualquer, no seu caso, espaço.
A desvantagem é que vc passa a ter VBA no arquivo que terá de ser salvo como XLSM.
A vantagem é que vc pode pegar o enésimo elemento, quebrando assim todas as células e diferentes colunas, e usar um Ext.Texto() para pegar o nome ao final...

Topa ?

Bom dia!!

Leia em:
viewtopic.php?f=10&t=15220&p=78786

Att

Topo sim fernando não tem problema

Ok, a função que eu criei tem esse código (mesmo código que postei ao final do tópico sugerido pelo Alex):

Option Explicit

Public Function Elemento(ByRef Texto As Variant, _
                         Optional ByVal Delimitador As String = " ", _
                         Optional ByVal Indice As Long = 1) As Variant
On Error GoTo TratarErro
    Elemento = VBA.Split(Application.WorksheetFunction.Trim(Texto), Delimitador)(Indice - 1)
On Error GoTo 0
Exit Function
TratarErro:
    Elemento = "#Erro"
End Function

E segue o exemplo.
Eu usei a função para pegar os elementos que vc quer, depois eu combinei esses resultados e usei funções do Excel para extrair os nomes completos.

Segue exemplo:

Cara simplesmente perfeito, não sei como agradecer, era exatamente o que precisava,muito obrigado mesmo.

Uma alternativa usando somente recursos nativos:

1º) Utilizando a ferramento texto para colunas, defina a delimitação conforme a imagem abaixo.

2º) Na última coluna aplique as fórmulas conforme arquivo anexo.

3º) Copie e cole como valores as colunas com fórmulas e apague a coluna com os valores que estão agrupados.