エクセルで縦に長い表を印刷

　縦にとても長い表があります、途中で改行し２列や３列にして、印刷枚数を少なくすることはできますでしょうか。
1--- 6--- 11---
2--- 7--- 12---
3--- 8--- 13---
4--- 9--- 14---
5--- 10--- 15---

のように番号順に１ページに順番に改行し、続きの16行目からは裏面に印刷したいのです。　よろしくお願いいたします。

No.5 回答者： mike_g 回答日時： 2006/09/27 20:35

[No.2回答に対する補足]に対するコメント、

「大きくてはみ出してしまい」？どの方向に食み出したのですか？
「とても長い」と仰っていたのは、とても“細長い”ってことではなかったのですか？
だから食み出したのは、縦方向、つまり、２ページ、３ページ、・・・ってことではないのですか？

Word におけるその状態で、Ctrl+A を実行した後で、[書式]→[段組み]で現れるメニューの[段数]ボックス内の数値を 2 とか 3 とか 5 とかに変更するだけで好いと思うのですが。

この回答への補足

　ワードに貼り付けましたら１つだけでも、右方向に大きくはみ出すのです。

補足日時：2006/09/30 11:00

No.4 回答者： tottomezou 回答日時： 2006/09/26 16:46

表示の改ページプレビューで各ページの印刷範囲を設定してみたらどうでしょうか？

もしくは、一定の行(例えば３０行)づつ、別のシートへコピーして並び変えてみてはどうでしょうか？

　　↓図にするとこんな感じで↓

１ページ目　　　　２ページ目
１---　31---　　　61---　91---
２---　32---　　　62---　92---
　・　　・　　　　　・　　・
　・　　・　　　　　・　　・
30---　60---　　　90---　***--

No.3 回答者： hamamoto-h 回答日時： 2006/09/26 23:46

メニューバーの表示→改ページプレビュー→でブルーの太い線をドラッグして印刷したい範囲を設定することができます。

この回答への補足

　みなさん、ご回答ありがとうございます。　　説明不足ですみませんでした。　私が理想とするところは、行の幅を変えたり印刷時縮小をかけたりしても、ページの下まで行が来て、自動的に右の列に次の行から改行なら無いかな～と思っているのです（すみません意味が伝わりますか？）　ページごとに１列づつ改行したり、コピー貼付けしなくてもすむ方法は無いかなーと。

補足日時：2006/09/30 11:02

No.2 回答者： mike_g 回答日時： 2006/09/26 18:52

「縦にとても長い表」を[コピー]して Word に[貼り付け]、Word の[書式]→[段組み]を設定し印刷するのが手っ取り早いかと。

この回答への補足

　段組み、使ったことが無かったのでいじってみますが難しそうですね。　表を[コピー]して[貼り付け]ましたら大きくてはみ出してしまい、２列に出来ませんでした。

補足日時：2006/09/27 08:45

No.1 回答者： toshi_2000 回答日時： 2006/09/26 16:43

下記ＶＢＡを実行すれば、任意の行、列に分割できます。

行数 = InputBox("行数を入力して下さい")
列数 = InputBox("列数を入力して下さい")
For 行 = 1 To Cells(1, 1).End(xlDown).Row
If 行 > 行数 Then
移動列 = (Int((行 - 1) / 行数)) Mod 列数 + 1
移動行 = 行 - (Int((行 - 1) / 行数)) * 行数 + Int(((行 - 行数 * 列数 - 1) / 行数 / 列数) + 1) * 行数
Cells(移動行, 移動列) = Cells(行, 1)
Cells(行, 1).ClearContents
End If
Next

この回答への補足

すみません、難しくて理解できませんでした。

補足日時：2006/09/30 10:56