Esta es la macro de excel;
- Código: Seleccionar todo Expandir vistaContraer vista
Function SEPARARAPELLIDOS(rng As Range) As String
Dim nombreArr() As String
Dim nuevaCadena As String
Dim i As Integer
'Dvidir el nombre por palabras en un arreglo
nombreArr = Split(Trim(rng.Value))
'Analizar cada palabra dentro del arreglo
For i = 0 To UBound(nombreArr)
Select Case LCase(nombreArr(i))
'Palabras que forman parte de un apellido compuesto
'Agregar nuevas palabras separadas por una coma
Case "de", "del", "la", "las", "los", "san"
'Insertar espacio en blanco
nuevaCadena = nuevaCadena & nombreArr(i) & " "
Case Else
'Insertar caracter delimitador
nuevaCadena = nuevaCadena & nombreArr(i) & "@"
End Select
Next
'Remover el último caracter delimitador de la cadena
If Right(nuevaCadena, 1) = "@" Then
nuevaCadena = Left(nuevaCadena, Len(nuevaCadena) - 1)
End If
SEPARARAPELLIDOS = nuevaCadena
End Function
esta macro la saque de la siguiente pagina:
//exceltotal.com/como-separar-nombres-y-apellidos-en-excel/
por su colaboracion mil gracias.