Anónimo
Pegar columnas seguidas
Hola experto:
Tengo un archivo con muchas columnas y necesito pegar todas las columnas, unas debajo de otras, en una sola columna ¿cómo puedo hacerlo? Muchas gracias
Tengo un archivo con muchas columnas y necesito pegar todas las columnas, unas debajo de otras, en una sola columna ¿cómo puedo hacerlo? Muchas gracias
1 respuesta
Respuesta de Juan Carlos González Chavarría
1
a), perdona que te responda hasta ahora, lo que pasa es que estaba un poco enfermo. Para contestar tu pregunta te pongo este código. Espero te sirva.
Sub CopiaColumnas()
Application.ScreenUpdating = False
Range("B1").Select
Do Until ActiveCell = ""
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Selection.End(xlToRight).Select
Loop
Range("A1").Activate
Application.ScreenUpdating = True
End Sub
Sub CopiaColumnas()
Application.ScreenUpdating = False
Range("B1").Select
Do Until ActiveCell = ""
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Selection.End(xlToRight).Select
Loop
Range("A1").Activate
Application.ScreenUpdating = True
End Sub