Koodi: Valitse kaikki
Sub testi()
Dim m As Integer
m = 1
For n = 1 To 10
Application.ActiveWorkbook.Worksheets("Sheet1").Columns(n).Select
Selection.Copy
Application.ActiveWorkbook.Worksheets("Sheet3").Columns(m).PasteSpecial
m = m + 2
Next n
m = 2
For n = 1 To 10
Application.ActiveWorkbook.Worksheets("Sheet2").Columns(n).Select
Selection.Copy
Application.ActiveWorkbook.Worksheets("Sheet3").Columns(m).PasteSpecial
m = m + 2
Next n
End Sub