Macro para separar datos que están en una misma columna

Estándar

Pasos
1.- abrir la hoja de excel.
2.- Alt+ F11 y abre código visual basic.
3.-Seleccionar: hoja1(nombre de el archivo)/click derecho, seleccionar insertar /Modulo, pegar el código.
4.- En la parte que dice Range(“A1”).select aqui cambiar dependiendo la columna que quieras separar y a la derecha debes tener una columna en blanco donde separara los datos.
5.- Correr la macro y listo solucionado….

Sub reorganizar_todo_que_estoy_desesperada_opcion_1()
‘********************************************************************************
‘Tenemos que situarnos en la primera celda donde tengamos los datos a reorganizar
‘Supondremos que es la celda A4
‘********************************************************************************
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 “;#”
ActiveCell = Replace(ActiveCell, “/”, “;#”)
‘ActiveCell = Replace(ActiveCell, “‘”, “;#”)
‘ActiveCell = Replace(ActiveCell, “”””, “;#”)
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

Anuncios

7 comentarios en “Macro para separar datos que están en una misma columna

  1. maye

    Buenas amigo pero al momento de correr la macro en una celda que tiene fecha y hora me cambia el orden de la fecha ejemplo columna A: 21/09/2013 12:00 am , lo separa en columna A: 09/21/2013 columna b:12:00 columna c: am , no quiero que me cambie el orden de la fecha

  2. Diego Randy Joel Quispe Madrid

    TENGO VARIOS NÚMEROS EN CADA CELDA, PERO EN FILA COMO X EJEMPLO 4523951486
    4523951486
    4523951486
    4525698745
    4525698745
    QUISIERA SEPARAR LOS NUMEROS IGUALES, CONTRA LOS OTRS NUMEROS IGUALES INSERTANDOLE FILAS Y AGREGARLES TITULOS

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s