Estás utilizando un navegador desactualizado. Puede que no muestre este u otros sitios web correctamente Deberías actualizar o utilizar un navegador alternativo.
Hola Raza, tengo una lista como de 5mil filas, en la columna A tengo el nombre completo, algunos como Nombre segNombre apellpat apellmat.
Lo que necesito es dividir en 3 columnas :
Columna A
Nombres
Columna B
Apell pat
Columna C
Apell Mat
Cn que frormula lo pudiera hacer, ya que manual me tomaria demaciado tiempo
Sub reorganizar_todo_version_1() '*********************************************************************
'Tenemos que situarnos en la primera celda donde tengamos los datos a reorganizar
'Supondremos que es la celda A1
'*********************************************************************
Range("A1").Select 'Ocultamos el procedimiento para que no se vea en pantalla
'nada de lo que hacemos
Application.ScreenUpdating = False 'Mientras encontremos datos en la fila en cuestión,
'que ejecute el macro
Do While Not IsEmpty(ActiveCell) 'Primero nos fijaremos en qué celda estamos,
'para volver a ella una vez arreglada la fila
dondeestoy = ActiveCell.Address 'Descomponemos la cadena, en subcadenas,
'para lo cual indicamos el delimitador " ", aunque
'por defecto, podríamos haberlo omitido, pues es ese mismo (espacio)
datos = Split(ActiveCell, " ")
For i = 0 To UBound(datos) 'ponemos cada dato del array, en una columna
ActiveCell = datos(i) 'nos desplazamos a la columna adyacente (de la derecha)
ActiveCell.Offset(0, 1).Select
Next 'Seguimos con el bucle 'Volvemos donde estábamos inicialmente
Range(dondeestoy).Select 'pasamos a la fila siguiente, y volvemos a recorrer el bucle
ActiveCell.Offset(1, 0).Select
Loop 'Mostramos todo de nuevo
Application.ScreenUpdating = True
End Sub