Forum Discussion
michaedo1
Jan 04, 2019Copper Contributor
How to interleave column data into rows
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 |
No RepliesBe the first to reply