Como copiar los registros de la columna B a la columna N en la columna A
Necesito una macro que copie todos los registros de la columna B en la columna A luego que debajo de el ultimo registro copie los registrois de la colunmna C y los pegue al final del ultimo registro de la columna A y asi sucesivamente hasta la columna N, cabe destacar que la cantidad de regiustros nunca es la misma varia de 1 a 700.
1 Respuesta
Respuesta de Dante Amor
1
Los ante todos gracias por tu respuesta. Pero en la columna a la celda a 1 queda vacía, ¿se puede corregir esto?
Utiliza lo siguiente:
Sub copiarcolumnas()
Dim i As Long
Application.ScreenUpdating = False
For i = Columns("B").Column To Columns("N").Column
Range(Cells(1, i), Cells(Cells(Rows.Count, i).End(3).Row, i)).Copy Range("A" & Rows.Count).End(3)(2)
Next
Range("A1").Delete Shift:=xlUp
Application.ScreenUpdating = True
End Sub
