print excel columns on less pages

[Guest]

I have a list of data in 3 columns which prints on 23 pages. I would like to
repeat the columns to print on fewer pages. Is there an easier way than cut
and paste? I looked into the page setup, but I didn't find anything that
would convert the data like Word would to print several columns on one page.
Thanks for any suggestions.

 

[Peg]

Excel can't directly do what you want to do. David
McRitchie has a macro to do this. See the following
website, then look for SnakeCol under articles.
http://www.mvps.org/dmcritchie/excel/excel.htm

 

[Gord Dibben]

You could export to Word and do it there.

Alternative....use this macro to snake 3 columns to 9 columns.


Public Sub Snake3to9()
Dim myRange As Range
Dim colsize As Long
Dim maxrow As Long
Const numgroup As Integer = 3
Const NUMCOLS As Integer = 9
On Error GoTo fileerror
colsize = Int((ActiveSheet.UsedRange.Rows.Count + _
((NUMCOLS - 1)) / NUMCOLS)) / numgroup
MsgBox "Number of Rows to Move is: " & colsize
Range("A1").Select
With ActiveCell.Parent.UsedRange
maxrow = .Cells(.Cells.Count).Row + 1
End With
ActiveCell.Parent.Cells(maxrow, ActiveCell.Column) _
.End(xlUp).Offset(1, 0).Select
Set myRange = Range(ActiveCell.Address & ":" _
& ActiveCell.Offset(-colsize, (numgroup - 1)).Address)
myRange.Cut Destination:=ActiveSheet.Range("A1").Offset(0, _
(NUMCOLS - numgroup))
Range("A1").Select
Cells.End(xlDown).Offset(1, 0).Select
Set NextRange = Range(ActiveCell.Address & ":" _
& ActiveCell.Offset(-colsize, (numgroup - 1)).Address)
NextRange.Cut Destination:=ActiveSheet.Range("A1").Offset(0, _
(NUMCOLS / numgroup))
Application.CutCopyMode = False
Range("A1").Select
fileerror:
End Sub

Gord Dibben Excel MVP

 

[Jim Cone]

My Excel add-in "Side by Side" does that.
Available - free - upon direct request.
Remove xxx from my email address.

Jim Cone
San Francisco, CA
(e-mail address removed)

 

[Guest]

I have a spreadsheet 3 columns wide x 180 pages. I'd like to snake the
columns to use less paper. Can you tell me what the VB code is to do this?
Thanks.

 

[Guest]

Jim,

This worked great. Thank you.
Allison