Merging 2 columns into 1 sequentially.

How would you merge 2 columns into 1 sequentially? Column A is DATE and column B is DAY of YEAR. I want to automatically merge the columns into another column with the order A1, B1, A2, B2, A3, B3, etc. I will be working with different kinds of data.

See attached Excel file.

Thanks,

Jim15

Hello Jim15,

In added a button to the worksheet to run the macro below. This has already been added to the attached workbook.

Sub MergeColumns()

  Dim Data(1 To 730, 1 To 1) As Variant
  Dim R As Long
  
    Set Rng = Worksheets("Merge Columns").Range("A2:A366")
     
      For I = 1 To 730 Step 2
        R = R + 1
        Data(I, 1) = R
        Data(I + 1, 1) = Rng.Cells(R, 1).Value
      Next I
    
   Worksheets("Merge Columns").Range("D2:D731").Value = Data
   
End Sub

note this is easily done with copy /paste sort and text to columns!

Hello Martin,

I want to automatically merge the columns into another column

I don't think doing it manually meets the requirement.

Mr. Ross,

I actually wanted to merge the columns with any kind of data. The macro does sort sequentially as requested but when I tried with alphabetic characters in both columns it still displayed the result using numbers. Can you modify to handle any kind of data in Columns A and B?

Thanks,

Jim15

Hello Jim15,

I changed the macro to use what is in the columns. This has been added to the attached workbook.

Sub MergeColumns()

  Dim Data(1 To 730, 1 To 1) As Variant
  Dim R As Long
  
    Set Rng = Worksheets("Merge Columns").Range("A2:A366")
     
      For I = 1 To 730 Step 2
        R = R + 1
        Data(I, 1) = Rng.Cells(R, 2).Value
        Data(I + 1, 1) = Rng.Cells(R, 1).Value
      Next I
    
   Worksheets("Merge Columns").Range("D2:D731").Value = Data
   
End Sub