Separar apellidos y nombres

[jeaa]

Buenas tardes expertos, por favor si me pueden ayudar tengo un archivo que necesito separar los apellidos y nombres, pero en mi base de datos tengo a algunos datos de las personas solo un apellido y un nombre en eso me debe salir el mensaje "No tiene Ap Materno" y en el resto normal lo debe separar. Adjunto el archivo.

Muchas gracias por su tiempo y ayuda.

Separar apellidos y nombre.xlsx

[afigueroaf]

Estimado,

Quizás una macro le puede servir, adjunto una para que la revise

(En la planilla adjunta sólo debes presionar el botón)

 

Sub Macro1()
'
' Macro1 Macro
'
A = 1
While Range(Cells(A, 1), Cells(A, 1)) <> ""
    A = A + 1
Wend
A = A - 1

For i = 2 To A
    APM = ""
    AP = ""
    NN = ""
    ESP = ""

    AA = Range(Cells(i, 1), Cells(i, 1))
    LAA = Len(AA)
    Position1 = InStr(AA, ",") 'Posición del Texto de Inicio
    AP = Mid(AA, 1, Position1 - 1)
    LAP = Len(AP)
    ESP = InStr(AP, " ")
    If ESP <> 0 Then
        APM = Mid(AP, ESP + 1, LAP)
        AP = Mid(AP, 1, ESP - 1)
        Range(Cells(i, 3), Cells(i, 3)) = APM
        Else
        Range(Cells(i, 3), Cells(i, 3)) = "No tiene Ap Materno"
    End If
    NN = Mid(AA, Position1 + 2, LAA)
    Range(Cells(i, 2), Cells(i, 2)) = AP
    Range(Cells(i, 4), Cells(i, 4)) = NN
    
Next i

End Sub

Separar apellidos y nombre.xlsm

[jeaa]

afigueroaf, excelente funciona perfecto se lo agradezco

[GabrielRaigosa]

Hola,

Con formulas,

 

 

Separar apellidos y nombre.xlsx

[jeaa]

GabrielRiojosa, muchas gracias muy buen aporte justo lo que necesitaba

[GabrielRaigosa]

Hola,

Adjunto nuevamante el archivo con una corrección en la extracción del "Ap. Paterno"

Separar apellidos y nombre.xlsx