エクセル２００３の質問です

質問

エクセルでの質問です。
　シート１にＡ１商品コード、Ｂ１に商品名、Ｃ１に在庫数、Ｄ１に生産者とした時に
　 　 A 　　　　　 B 　　　　　 C 　　　　　 D
1　商品コード 商品名　　在庫数　生産者
２　１２３４　　　みかん１　　　３　　　太郎さん
３　　４５６　　　みかん２　　　５　　　次郎さん
４　　２３４ 　　　りんご１　　　１　　　太郎さん
・
・
シート２のＡ１に太郎さんを入力した時に
シート２のＡ１に「太郎さん」を記入
シート２のＥ３に「行位置」と記入
シート２のＡ３以降に「商品コード」「商品名」「在庫数」を記入

Ｅ４に
=IF(COUNTIF(Sheet1!E:E,$A$1&ROW(A1)),MATCH($A$1&ROW(A1),Sheet1!E:E,0),"")
と記入、以下コピー

Ａ４に
=IF($E4="","",INDEX(Sheet1!A:A,$E4))
を記入、右にコピー、下にコピー
と教えていただき大変便利に使用していますが、印刷範囲をデータが表示された場所に合わせ自動で
変更設定出来る方法が知りたいです。なおシート２は表になっている為、罫線が先に入れてあります
よろしくお願い致します。

回答No.1

noname#203218

[ファイル]→[印刷範囲]→[印刷範囲の設定]で印刷範囲を設定します。
[挿入]→[名前]→[定義]で、[Print_Area]という名前ものが存在すると思うので、それを選択し、参照範囲の数式を以下の様に変更してOKします。

※数式はA列からC列のデータだとして、A列のデータ数で判別し、A列にデータが追加されるたびに印刷範囲が変更されます。
=OFFSET(!$A$1,0,0,COUNTA(!$A:$A),3)
数式の最後に記載されている数値３が列数を指定しています。（この場合C列）

最初の列データに途中空白セルが存在する場合はこの方式は利用出来ません。今回は問題無いようですが、次回以降利用される場合、留意下さい。

「ファイル」「ページ設定」で「ページ」タブのウィンド中央の拡大縮小印刷で、「次のページ数にあわせて印刷」がありますので、それを選択して、ページ数を設定し、終了です。

補足

早速の回答ありがとうございます
　さっそく試してみたのですが、どうしても=IF($E4="","",INDEX(Sheet1!A:A,$E4))
　の数式が入力されていてデータが表示されていない場所まで印刷範囲に設定されてしまいます。
　＞A列にデータが追加
　ではなく、表示の場合はどうなのでしょうか？
よろしくお願いいたします。