teabag

Excel doesn't have this type of "columns" function as Word has.

You have to rearrange your data by copy/pasting or by formula or by macro.

Let's say you have 200 rows in your 5 columns. How do you want that printed?

Rows 1 - 50 in A:E and 51 - 100 in F:J with this macro.

Sub Move_Sets()
Dim iSource As Long
Dim iTarget As Long

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(50, 5).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 5).Cut _
Destination:=Cells(iTarget, "F")

iSource = iSource + 100
iTarget = iTarget + 50

Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub


Gord Dibben MS Excel MVP

On Sat, 16 Dec 2006 17:24:00 -0800, teabag
wrote:

I have a fairly narrow list of 5 colums. I want to repeat those 5 columns on
the right hand side of the page. I can see an option to do this in the print
setup but it's not working.