エクセルの縦長（4列500行）データの印刷について教えてください。

質問

エクセルの縦長（4列500行）データの印刷について教えてください。

エクセルのシート1のＡ Ｂ Ｃ Ｄ 列にそれぞれ500行のデータがはいっています。
印刷すると、用紙の右のほう半分は空白で、10枚印刷されてしまいます。
用紙の右のほうも使って、1枚にＡＢＣＤ列のセット×4くらい印刷できる方法は
ないでしょうか？

↓こんな感じに印刷したいのですが．．

ＡＢＣＤ ＡＢＣＤ ＡＢＣＤ ＡＢＣＤ
1 1 1 1 51・・51 101・・101 151・・151
2 2 2 2 52・・52 102・・102 152・・152
・ ・ ・ ・
・ ・ ・ ・
・ ・ ・ ・

1列の縦長のデータはINDIRECT関数でできたのですが、
↓
=INDIRECT("YK!A"&(COLUMN(A1)-1)*50+ROW(A1))
列が増えると複雑ですごく時間がかかってしまいます。

どなたか詳しい方教えてください。よろしくお願いします。

回答No.1

KURUMITO · ベストアンサー

シート1のＡ1セルから例えばＤ500セルまでデータがあるとして、シート2のＡ1セルには次の式を入力してＰ1セルまでオートフィルドラッグしたのちに下方にもオートフィルドラッグします。

=IF(COLUMN(A1)>16,"",INDEX(Sheet1!$A:$D,IF(ROUNDUP(COLUMN(A1)/4,0)=1,(ROUNDUP(ROW(A1)/50,0)-1)*200+MOD(ROW(A1)-1,50)+1,IF(ROUNDUP(COLUMN(A1)/4,0)=2,(ROUNDUP(ROW(A1)/50,0)-1)*200+MOD(ROW(A1)-1,50)+1+50,IF(ROUNDUP(COLUMN(A1)/4,0)=3,(ROUNDUP(ROW(A1)/50,0)-1)*200+MOD(ROW(A1)-1,50)+1+100,IF(ROUNDUP(COLUMN(A1)/4,0)=4,(ROUNDUP(ROW(A1)/50,0)-1)*200+MOD(ROW(A1)-1,50)+1+150,"")))),MOD(COLUMN(A1)-1,4)+1))

なお、シート1でデータが無い空のセルは0と表示されますのでそれを表示させたくない場合には「Offic」ボタンから「Excelのオプション」ボタンをクリックして「詳細設定」の項目からシートで作業するときの表示設定にある、「ゼロ値のセルにゼロを表示する」のチェックを消します。

お礼

感動です！できました！ありごとうございました！！