Excelで2行100列の表を少ない紙で印刷する方法

下記のようなのは役立ちませんでしょうか。 （１）Sheet1の第１行にデータがあるとして、それをSheet2のA1から右列に複写する。（元データは加工しない。） （２）3列で折り返す配置に、関数式を用いて、もって行く。簡単にするため、例として３にしました。 （３）すなわち、A２セルに関数式 =INDEX($A$1:$S$1,1,3*(ROW(A2)-1)+COLUMN(A2))を入れる。 ・実際のケースでは$S$1は１００列目のセルを絶対番地で指定すること。 ・「3*」の３は、何列で折り返すかの列数で置き換えること。 （４）そして、A2の式をC2まで複写する。 ・実際のケースでは折り返す列数まで複写する。 （５）その後A2:C2を、第１行の総データ数／３行＋１まで複写する。 （６）次にその数行下（見だし行など入れるため）に、sheet1の第２行を複写し、同じような理屈で演算式を組みたてる。 （７）項目見出し等が必要な場合は、項目見出しも折りたためるが、 複雑になって現実的でないかも知れない。 Sheet1の第２行目を折り畳むには、Sheet2の第８行にコピーするとして 第９行から折り畳みを始めるとなるのでA9セルに =INDEX($A$8:$S$8,1,3*(ROW(A9)-8)+COLUMN(A9))と入れることになる。

関数を使って全データを１ページ目に表示し、１ページ目だけを印刷されたら いかがでしょうか。（姑息ですか？） ただし、全セルが同じ幅だとした場合ですが‥‥。 A1 から CV2 までデータが入っているとします。 [ツール]-[オプション] で "改ページ" を表示すると、１ページ内に印刷される セルの数がわかります。（列Ｈまででしたら８つですね） また仮に、８列が１ページ内に印刷されるとして、残りのデータを ５：６行目、 ９：１０行目、‥‥ と４行ごと(間の空白行２行)に表示するとします。 セル A5 に =OFFSET($A$1,0,(INT((ROW()-5)/4)+1)*8+(COLUMN())-1) セル A6 に =OFFSET($A$2,0,(INT((ROW()-5)/4)+1)*8+(COLUMN())-1) と入力し、B5:H6 までコピーします。 次に、A5:H8 を選択し、下方にズ～ッとドラッグコピーします。 ※数式内の ROW()-5)/4)+1)*8 の各数字の意味は想像できると思います。 　ちなみに １ページに９列入って、３行ごと(間の空白行１行)の場合は、 　ROW()-4)/3)+1)*9 になります。

Wordで段組した白紙を用意し，そこに2行を選択したExcelのデータを貼り付けます．

一枚に 何行も入れるように コピペしまくる。