Separar Nome e Sobrenome Excel Vba

Para separar um nome completo em nome e sobrenome usando VBA no Excel, siga os seguintes passos:

1. Abra o Editor do Visual Basic (pressione Alt + F11).
2. Na janela do Editor do Visual Basic, clique em Inserir e escolha um novo Módulo.
3. No Módulo em branco, insira o seguinte código:

Sub SeparaNomeSobrenome()

Dim NomeCompleto As String Dim PrimeiroNome As String Dim UltimoNome As String

NomeCompleto = Range("A1").Value 'altere "A1" para a célula com o nome completo que você quer separar

If InStr(NomeCompleto, " ") > 0 ThenPrimeiroNome = Left(NomeCompleto, InStr(NomeCompleto, " ") - 1)UltimoNome = Right(NomeCompleto, Len(NomeCompleto) - InStr(NomeCompleto, " "))Range("B1").Value = PrimeiroNome 'altere "B1" para a célula onde você quer que o primeiro nome seja exibidoRange("C1").Value = UltimoNome 'altere "C1" para a célula onde você quer que o último nome seja exibido ElseRange("B1").Value = NomeCompleto End If

End Sub

4. Salve o módulo e feche o Editor do Visual Basic.
5. Na planilha do Excel, digite o nome completo que você deseja separar em uma célula (por exemplo, célula A1).
6. Selecione a célula onde você quer que o primeiro nome seja exibido (por exemplo, célula B1) e execute o código VBA clicando em Desenvolvedor > Macros > SeparaNomeSobrenome (ou pressionando Alt + F8 e selecionando SeparaNomeSobrenome na lista).
7. O primeiro nome e o último nome serão exibidos nas células que você selecionou (B1 e C1 neste exemplo).

Observação: este código assume que o nome completo contém um espaço entre o primeiro e o último nome. Se o nome completo não tiver um espaço, o código simplesmente exibirá o nome completo na célula que você selecionou para o primeiro nome. Se o nome completo tiver mais de um espaço, o código considerará apenas o primeiro espaço como o separador entre o primeiro e o último nome.