Seleccionar columnas no consecutivas

[MVelazquez]

Saludos!

He leído de consultas similares, pero en este caso las columnas a seleccionar tienen intervalos de cada 3 columnas (Seleccionar columna 1, 4, 7, 10... etc) en hojas de hasta 500 columnas con información. Posterior pegar estas columnas en otra hoja quedando contiguas. 

¿Tendría que seleccionar cada nombre de columna? Range ("A:A", "D:D", "G:G"... Etc ). Adjunto archivo ejemplo.

Mil gracias.

Elasticidad de Precios Feb 2021.xlsx

[Antoni]

Si puedo, mañana le hecho un vistazo.

[Gerson Pineda]

Hace 7 horas, MVelazquez dijo:

¿Tendría que seleccionar cada nombre de columna? Range ("A:A", "D:D", "G:G"... Etc )

Hola

Te dejo 2 alternativas como solución

Copiar columnas intercaladas_GP.xlsm

 

Saludos 

[Antoni]

Otra más:

Sub CopiarColumnasDe3En3()
Application.ScreenUpdating = False
Sheets("POS QTY").Cells.Clear
For x = 1 To Sheets("BD").Range("A1").End(xlToRight).Column Step 3
   columna = columna + 1
   Sheets("BD").Columns(x).Copy Sheets("POS QTY").Columns(columna)
Next
End Sub

 

[MVelazquez]

Antoni & Gerson, muchas gracias. Ambas soluciones lo resuelven perfectamente.

Saludos.