¿Pegar varias columnas en dos columnas consecutivas?
Para: Dante Amor.
Muy buenas tardes. Espero me pueda ayudar.
Tengo varias columnas en excel, y lo que quiero hacer es copiar las columnas y pegarlas, en dos columnas consecutivamente. Ó sea, Columna "C" debajo de Columna "A", Columna "D" debajo de Columna "B", Columna "E" debajo de Columna "A", Columna "F" debajo de Columna "B" sucesivamente, sin dejar espacios entre cada columna. Las columnas abarcan por lo regular de columna "A" hasta columna "EZ", actualmente lo hago manualmente cortar y pegar.
Vi un macro que puso anteriormente pero solo se pega en una sola columna
Sub unir_columnas()
'Por.DAM
ci = Columns("C").Column 'columna inicial a unir
cf = Columns("O").Column 'columna final a unir
cd = Columns("Z").Column 'columna unión
f = 1 'fila inicial de datos
For i = ci To cf
uf = Cells(Rows.Count, i).End(xlUp).Row
ud = Cells(Rows.Count, cd).End(xlUp).Row + 1
Range(Cells(f, i), Cells(uf, i)).Copy Cells(ud, cd)
Next
End Sub
1 respuesta
Respuesta de Dante Amor
2
Te anexo la macro actualizada
Sub Unir_Columnas()
'Por.Dante Amor
cd1 = Columns("A").Column 'columna destino 1
cd2 = Columns("B").Column 'columna destino 2
cin = Columns("C").Column 'columna inicial
cfi = Columns("EZ").Column 'columna final
f = 1 'fila inicial de datos
For i = cin To cfi Step 2
uf1 = Cells(Rows.Count, i).End(xlUp).Row
ud1 = Cells(Rows.Count, cd1).End(xlUp).Row + 1
Range(Cells(f, i), Cells(uf1, i)).Copy Cells(ud1, cd1)
'
uf2 = Cells(Rows.Count, i + 1).End(xlUp).Row
ud2 = Cells(Rows.Count, cd2).End(xlUp).Row + 1
Range(Cells(f, i + 1), Cells(uf2, i + 1)).Copy Cells(ud2, cd2)
Next
MsgBox "Fin"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
interesante Dante - Adriel Ortiz Mangia