No exemplo que se mostra em baixo, temos uma função de código VBA para o Excel que extrai o nome e o apelido de uma célula contendo o nome completo e mostra o resultado em duas células diferentes:
Sub ExtrairNomeSobrenome()
Dim nomeCompleto As String
Dim nome() As String
nomeCompleto = Range("A1").Value 'altere A1 para a célula que contém o nome completo
nome = Split(nomeCompleto, " ") 'divide o nome completo em palavras separadas por espaço
Range("B1").Value = nome(0) 'exibe o primeiro elemento do array como nome
Range("C1").Value = nome(UBound(nome)) 'exibe o último elemento do array como sobrenome
End Sub
Este código assume que o nome completo está na célula A1 e mostra o nome e aplido nas células B1 e C1, respectivamente. É possível alterar as referências de célula de acordo com as necessidades do utilizador.