HLOOKUP関数で連続したセルの検索について

エクセル2000を使ってます。
HLOOKUPについて教えて下さい。
例えば、SHEET.1に

　　　　リンゴ　みかん　
1月1日　　１　　　１　　
1月1日　　２　　　３　　
1月2日　　３　　　１　　
1月3日　　４　　　２　　
　・
　・
　・
12月31日　１　　　２
とした場合で、

SHEET.2のB1のセルに「みかん」と入力した場合、SHEET.1のみかんの列を全部複写するようにしたいのです。

とりあえずSHEET.2のB2のセルに
=HLOOKUP(B1,'Sheet1'$2:$5000,2,0)と入力し、
B3のセルに
=HLOOKUP(B1,'Sheet1'$2:$5000,3,0)と返す行を一つずつ増やしてたのですが、行があまりにも多くて時間が掛かるので簡単に出来る方法があれば教えて下さい。
また、他にもっと簡単な関数とかがあれば教えて下さい。
よろしくお願いします。

No.1 ベストアンサー 回答者： rin01 回答日時： 2006/09/19 15:36

こんにちは～♪

sheet2の

B2:　=INDEX(Sheet1!B:C,ROW(),MATCH($B$1,Sheet1!$B$1:$C$1,0))

下にコピーでいいのではないでしょうか？

カン違いならゴメンナサイ!!

。。。。Rin～♪♪

No.2 回答者： bdr 回答日時： 2006/09/19 15:44

=HLOOKUP(B1,'Sheet1'$2:$5000,2,0)

を以下のように修正します
=HLOOKUP(B$1,'Sheet1'$2:$5000,ROW(),0)

行数のところにROW()を使います

この回答へのお礼

ありがとうございます。
rin01さんのやり方でもできたのですが、どう違うのか未熟者で分かりません。
ますは、ROW()というのを勉強してみます。

お礼日時：2006/09/19 18:01