Convertir columna apellidos, nombre a tres columnas
Me han enviado una relación que genera una única columna del tipo 1ºAPELLIDO 2ºAPELLIDO, (coma) NOMBRE,
O sea
Pérez Pérez, Antonio
González González, Juan
Sánchez Sánchez, Ana
Quiero convertir esa única columna en tres columnas que sean PRIMER APELLIDO ! Segundo apellido ! NOMBRE, o sea
Pérez Pérez Antonio
González González Juan
Sánchez Sánzhez Ana
Sin la coma
1 respuesta
Lo conseguirás con esta macro
Sub SepararNombre()
'Fuente Dante
Range("B:D").ClearContents
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
dat2 = Split(Cells(i, "A"), ",")
If UBound(dat2) > 0 Then
Cells(i, "D") = LTrim(dat2(1))
esp = InStr(1, dat2(0), " ")
If esp > 1 Then
Cells(i, "B") = Left(dat2(0), esp - 1)
Cells(i, "C") = Mid(dat2(0), esp + 1)
End If
Else
esp = InStr(1, Cells(i, "A"), " ")
If esp > 1 Then
Cells(i, "B") = Left(Cells(i, "A"), esp - 1)
Cells(i, "C") = Mid(Cells(i, "A"), esp + 1)
End If
End If
Next
End SubValora para finalizar : "Votar" o "Excelente"
¡Gracias!
Valora para finalizar : "Votar" o "Excelente"
Perdón amigo... pero en lugar de utilizar una MACRO, no podrías decirme un modo mejor mediante "instrucciones matemáticas", o fórmulas. Mediante la macro, me tienes que explicar como la ejecuto, pues soy torpe en esto de excel 2010. Muchas gracias.
Aquí la instrucciones. Clic derecho en la "Hoja1"
Seguido estos pasos regresas a la hoja para ver el resultado.
Valora para finalizar : "Votar" o "Excelente"
