エクセルで条件により別シートへ分けるには？

質問

エクセルにて
シート１に
　　月　日　コード　科目　内容　収入　支出
a　４　５　　１　事務　　　　　　　３００
b　４　６　　２　家電　　　　　　５０００
a　５　３　　１　事務　　　　　　　５００
a　５　７　　３　水道　　　　　　２０００
b ６　４　　５　光熱　　　　　　３０００
a　６　６　　４　雑費　　　　　　　７００

実際には、これから入力していくものも含めてさらに続きます。

このような表があり、最初のセルにaが入力されている場合は、シート２へ
bが入力されている場合は、シート３へと自動で振り分けるにはどうしたら良いでしょうか？

オートフィルタだと手間どるので簡易的になればと思うのですが...

回答No.1

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

◆Sheet1
　　A　　B　　C　　　D　　　　E　　　F　　　G　　　H　　　　I
1　　　　月　　日　コード　　科目　内容　収入　支出
2　　a　　4　　5　　　1　　　事務　　　　　　　　　　300　　　2
3　　b　　4　　6　　　2　　　家電　　　　　　　　　　5000
4　　a　　5　　3　　　1　　　事務　　　　　　　　　　500　　　4
5　　a　　5　　7　　　3　　　水道　　　　　　　　　　2000　　　5
6　　b　　6　　4　　　5　　　光熱　　　　　　　　　　3000
7　　a　　6　　6　　　4　　　雑費　　　　　　　　　　700　　　7

◆Sheet2
　　A　　B　　C　　　D　　　　E　　　F　　　G　　　H　　　　I
1　　a　 月　　日　コード　　科目　内容　収入　支出
2　　a　　4　　5　　　1　　　事務　　　　　　　　　　300
3　　a　　5　　3　　　1　　　事務　　　　　　　　　　500
4　　a　　5　　7　　　3　　　水道　　　　　　　　　　2000
5　　a　　6　　6　　　4　　　雑費　　　　　　　　　　700

◆こんな方法はいかがでしょうか

◆Sheet2のA1に「a」と入力します（入力規則でa,b,c・・とリストから入力するようにしておきます）

◆Sheet1のI列を作業列にします
I2=IF(Sheet2!$A$1=A2,ROW(),"")
★下にコピー

◆Sheet2の式
A2=IF(ROW(A1)>COUNT(Sheet1!$I:$I),"",INDEX(Sheet1!A:A,SMALL(Sheet1!$I:$I,ROW(A1))))
★右と下にコピー

◆Sheet2のA1を「b」にすると、Sheet2のbのデータが表示されます

お礼

ありがとうございました。
一応解決致しましたので締め切ります。

補足

早速の回答ありがとうございます。
考えていた通りのものになりましたが空白のところが０表示になってしまうのを空白はそのまま空白にするにはどうしたら良いのでしょうか？

あと似たような感じで別シート３としてa,bと分けずに月とコード順に表示（4月分のコード順)を反映させるなんてことは可能でしょうか？

一応自分でも模索してみますがわかりましたらお教えいただけたら幸いです。