Home

How to interleave column data into rows

michaedo1
Occasional Visitor

Hello,

I need some help with a piece of code, or I need a good idea. I have a spreadsheet with two columns. Column A contains a series of author names, and B contains the titles to their books or articles. I have a piece of code that interweaves these columns into rows, as shown below. However, when I make a text file out of it to import to EndNote, I need a space between each author/title set. Ideally the code I have would be modified to add a space in the Excel file, so it would look like the example below.

I would greatly appreciate any help you folks can provide. Thank you.

Here is the code I referenced:

Sub Two_To_One()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim R As Long
numRows = 1
For R = 2000 To 1 Step -1
ActiveSheet.Rows(R + 1).Resize(numRows).EntireRow.Insert
Next R
Range("B1").Select
Selection.Insert Shift:=xlDown
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Application.ScreenUpdating = True
End Sub

%A Bill

%T The Big Tree

%A Joe

%T The Little Rock

  
  

%A Bill

 

%T The Big Tree

 
  

%A Joe

 

%T The Little Rock