エクセルでの関数について

質問

初めて質問します。解る方がいたら教えていただきたく書き込みします。エクセルで台帳を作成するため、sheet1に次の通り情報を入力しました。
　　　A　　B　　　　C　　　　　D
1　日付　名前　　住所　　　申請事由　　
2　1/1 甲川　　東京都　　　　1
3 1/2　乙本　　大阪府 　 　 1
4 1/2　丙藤　　北海道 　 　2
5 2/1　甲山　　京都府 　　　 3
・　・ 　・　　・　　　　　　　　・
そして、sheet2に申請事項1の人の情報を、sheet3に申請事項2の人の情報を、sheet4に申請事項3の人の情報を空白を開けずに次の通り詰めて入力したいのです。

sheet2（申請事由1の人）
　　　 A 　　　　 B 　　　　 C
1　　日付　　名前　　 住所
2　　1/1 甲川　　東京都
3 　 1/2 乙本　　大阪府
4 ・　　　・　　　　・

sheet3（申請事由2の人）
　　　 A 　　　　 B 　　　　 C
1　　日付　　名前　　 住所
2　　1/2　　 丙藤　　北海道
3 ・　　　・　　　　・
4 ・　　　・　　　　・

sheet1に日付、名前等を入力しただけで、各事由事に他のsheetに詰めて入力されるよう関数式で入力することは可能かどうか教えてください。よろしくお願いします。

回答No.1

maron--5 · ベストアンサー

◆こんな方法はいかがでしょうか？
★Sheet1
　　　A　　　　B　　　　　　　C　　　　　　D
1　　日付　　名前　　　　住所　　申請事由　　
2　　1/1　　　甲川　　　東京都　　　　1
3　　1/2　　　乙本　　　大阪府　　　　1
4　　1/2　　　丙藤　　　北海道　　　　2
5　　2/1　　　甲山　　　京都府　　　　3

★Sheet2
　　　A　　　　B　　　　　　　C　　　　　　D
1　　　1
2　　日付　　名前　　　　住所　　申請事由　　
3　　1/1　　　甲川　　　東京都　　　　1
4　　1/2　　　乙本　　　大阪府　　　　1

★Sheet2のA1に抽出したい申請事由「1」を入力します
A3=IF(ROW(A1)>COUNTIF(Sheet1!$D$1:$D$100,$A$1),"",INDEX(Sheet1!A$1:A$100,SMALL(INDEX(SUBSTITUTE((Sheet1!$D$1:$D$100=$A$1)*1,0,10^5)*ROW($1:$100),),ROW(A1))))
★この式を右と下にコピー
★ただし、A列の日付はシリアル値になっていますので、表示形式を「日付」にしてください

◆A1を「2」、「3」に変更するとそれぞれのデータが抽出、表示されます

お礼

返事遅くなってしみませんでした、今回教えてもらったとおりにやったら無事解決しました。ありがとうございます。ちなみに最後だけ教えてください。SUBSTITUTE((Sheet1!$D$1:$D$100=$A$1)*1,0,10^5)の10^5はどういう意味なんでしょう？検索してみたのですが、解決できませんでした・・・

回答No.2

imogasi

>初めて質問します
私にとっては毎日同じ類型の質問を読まされています。
１条件抜き出し問題です。
ーー
エクセルでの回答類型は
（１）関数
　　　A.作業列を使わない（既出。回答の式の理解が初心者には無理）
　　　B.作業列を使う（いくらか判りやすい）
（２）VBA
（３）操作（フィルタなど）
（４）他ソフト利用
などあり、一般の初心者的質問者は（２）（３）の回答に思いも行かず、関数でを期待しているようだ。しかし関数では、抜き出しは得意ではない。ふさわしい機能ではない。それをまず知っておくべきだ。
許されるなら、フィルタなどで対処するのがエクセルの本筋かなと思う。
(1)Bの類型の回答で
A1:D6（E1:E6は式の結果を前もって掲出）
日付 名前 住所 申請事由 連番
1月1日 甲川 東京都 1 1
1月2日 乙本 大阪府 1 2
1月2日 丙藤 北海道 2
2月1日 甲山 京都府 3
2月2日 岩田 福井県 1 3
E列の連番列は　=IF(D2=1,MAX($E$1:E1)+1,"")
と入れて下方向に式を複写する。
結果上記の通り。
Sheet2に行って
A1:D1の見出しはコピー張り付けしておくとして、
A2に
=INDEX(Sheet1!$A$1:$D$6,MATCH(ROW()-1,Sheet1!$E$1:$E$6,0),COLUMN())
と入れてD2まで式を複写。
A2:D2を範囲指定しD4で＋ハンドルをだし、A4:D4まで式を複写。
結果
日付 名前 住所 申請事由
2008/1/1 甲川 東京都 1
2008/1/2 乙本 大阪府 1
2008/2/2 岩田 福井県 1
ただし第５行以下まで式を複写するとエラーが表示されるが、WEBで
「imogasi方式」で照会すれば、沢山同類の回答が出るのでその中に書いてある。また他の回答類型も当然載っている。
ーー
しかし
申請事由２になると別列の作業列が要る。そういう欠点を抱えている。
今までは１区分の抜き出しで終わりが多かった。
ーー
本当はVBAででも使ってやらないとすっきりしないのかも知れない。
ーー
お勧めは、質問者の程度なら、
別シートにコピー
申請事由でソート
目視で申請事由コードの区切りを捉え、その区間をコピーし
別シートに張り付け
上記申請事由コード数だけ繰り返し。
（これをマクロの記録をとって改変すると、VBAの１方法になる。）

お礼

返事遅くなって申し訳ありません。今まで結構同じ質問が出ていたとは私が過去の質問をあまりよく見てなかったようです。ただ皆さん同じようなことで悩んでいるんだな、とも思いました。エクセルもこういう作業が容易にできればいいのにと思います。今までVBAは全く無知でしたが、せっかくなので、少しづつ勉強していきたいと思います。ありがとうございました。