Copy Column data And Paste Into Every Other Column on a New Sheet

[classiccarguy]

Hello there,

I am here seeking some help with my data. I have tried this many times in the past day to no avail.

Objective: Copy data from one worksheet and paste into every other column of another worksheet.

Details: I have data in Sheet1 with a variable amount of data in (Could have columns A:E or could have columns A:Z). I would like to paste column A of sheet1 into column A of sheet2. Then copy column B in sheet1 into column C of sheet2 and so on. This should be done continuously until all columns from sheet1 has been copied into every other column of sheet2.

Any help would be greatly appreciated. Thank you in advance!

 

[krausr79]

Paste the data in the new sheet, then run this macro:

Sub SpaceColumns()
Dim C As Long
For C = 2 To 100 Step 2
Columns(C).Insert
Next C
End Sub

Change the 100 to be double the number of columns you have. Or leave it as 100, it shouldn't hurt to space out extra empty columns.

 

[classiccarguy]

Thank you for the fast reply. That solution would not entirely help however. I should have been more specific. The purpose of copying every column in sheet1 individually and pasting in every other column in sheet2 is that I will eventually need to copy columns from sheet3 and place them in the blank columns of sheet2.

For Example: I have data in columns A and B both in sheet1 and sheet3
Sheet1 column A would be placed into Sheet2 column A
Sheet1 column B would be placed into Sheet2 column C
Sheet3 column A would be placed into Sheet2 column B
Sheet3 column B would be placed into Sheet 2 column D

 

[classiccarguy]

UPDATE: I solved my own issue! Please see below for those of you that have the same issue as me and are looking to do the same. Hope this helps. Thanks krausr79 for getting my wheels turning in the right direction on this. Please see code below for those interested. Not terribly elegant, but it works for me.



Sub ADD_SPACES()

Dim ICount as Integer
Dim Sheet1 as worksheet
Dim Sheet2 as worksheet
Dim wb as workbook
Set wb = ActiveWorkbook
Set Sheet1 = wb.worksheets("Sheet1")
Set Sheet2 = wb.worksheets("Sheet2")
Dim IStart As Integer
Dim copyz As Integer
Dim destinationz As Integer
ICount = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
IStart = 1
destinationz = 1​

For copyz = 1 To ICount Step IStart​

sheet1.Select
Columns(copyz).Select
Selection.Copy
sheet2.Select
Columns(destinationz).Select
sheet2.Paste​

destinationz = destinationz + 2
Next copyz​

End Sub