エクセル２０００で教えて下さい。

質問

エクセル２０００で下記のような表を作りたいのですが
教えて下さい。
シート１を入力すれば勝手にシート２の表が作成されるように
したいのです。
シート１のD列に数値が入った場合のみ、その行のすべてが
シート２の上から順番に並ぶようにしたいのです。
参考までに大阪なら数値は必ず「入」の列に入ります。
東京なら数値は必ず「出」の列に入ります。
すべて関連付けされていますが名前は１００種類くらいあります。
同じ東京と入った場合でも数値もその都度変わります。
どなたかご教授下さい。

例
（シート１）
　　　　A　　　　　　　B　　　　　　C　　　　　　D
１　　日付　　　　　名前　　　　　出　　　　　入
２　　10/20 　　　　東京　　　　２００　　　　
３　　10/20　　　　　大阪　　　　　　　　　　３００
４ 　10/20　　　　　名古屋　　　４００
５ 　10/21　　　　　福岡　　　　３００　　　
６ 　10/21　　　　　仙台　　　　５５０
７ 　 10/22　　　　　京都　　　　　　　　　　９００
８　　10/23　　　　　東京　　　　５００
９ 　10/23　　　　　京都　　　　　　　　　　７５０

（シート２）
　　　　A　　　　　　　B　　　　　　C　　　　　　D
１　　日付　　　　　名前　　　　　出　　　　　入
２　　10/20　　　　　大阪　　　　　　　　　　３００
３ 　 10/22　　　　　京都　　　　　　　　　　９００
４ 　 10/23　　　　　京都　　　　　　　　　　７５０

回答No.14

Wendy02

こんばんは。Wendy02です。

Sheet2:
A4

=IF(ROW($A1)>COUNT(Sheet1!$B$4:$B$54),"",INDEX(Sheet1!$A$4:$D$54,SMALL(INDEX(ROW($A$4:$A$54)*ISNUMBER(Sheet1!$B$4:$B$54)-2,,),COUNTBLANK(Sheet1!$B$4:$B$54)+ROW($A1))-1,COLUMN(A1)))

で、右にフィル・ドラッグでコピーしてみてください。
(一括で範囲を置換できるように、工夫を加えてみました。範囲を決めて行ってみてください。)

B4:は、書式を標準か数値にして、C4:は削除、D4は、そのままで
出てくるかと思います。

Sheet1 のB列は、数値が入っていることが条件です。

お礼

Wendy02さん
本当に何度もすみません。
シート１は当初の質問から列は変わっていません。
行が４行目からになっただけでした。

シート１
　　　　A　　　　　　　B　　　　　　C　　　　　　D
３　　日付　　　　　名前　　　　　出　　　　　入
４　　10/20 　　　　東京　　　　２００　　　　
５　　10/20　　　　　大阪　　　　　　　　　　３００
６ 　10/20　　　　　名古屋　　　４００
７ 　10/21　　　　　福岡　　　　３００　　　
６ 　10/21　　　　　仙台　　　　５５０
７ 　 10/22　　　　　京都　　　　　　　　　　９００
８　　10/23　　　　　東京　　　　５００
９ 　10/23　　　　　京都　　　　　　　　　　７５０

でシート２が
　　　　A　　　　　　B　　　　　　C　　　　　　D
３　　日付　　　　　　入　　　　　　　　　　　名前　　
４　　10/20　　　　　３００　　　　　　　　　大阪
５ 　 10/22　　　　　９００　　　　　　　　　京都
６ 　10/23　　　　　７５０　　　　　　　　　　京都

C列は空白です。

本当に何度も何度もこちらの間違いばかりで申し訳ございません。
お付合いして頂いている事、心から感謝しております。

補足

↓に一つ書き忘れました。
シート１の行は３００行くらいになりそうです。