エクセル2010の関数について教えてください

質問

下記のような　シート１　があります。
　　　A　　　　　B　　　　　　C　　　　　D　　　　　　　E　　　
１　担当者　　商品名　　　数量　　　販売単価　　売上月
２　山本　　　えんぴつ　　１００　　　　１５０
３　上田　　　消しゴム　　　８０　　　　１８０　　　　　６月
４　鈴木　　　ノート　　　　　９０　　　　１７０　　　　　４月
５　岡田　　　名刺　　　　　５００　　　　８００
６　松岡　　　バインダー　３００　　　　３００　　　　　８月
７　遠藤　　　えんぴつ　　１１０　　　　１８０

シート１　のE列に売上月が入力された行のみをシート２に自動に表示したいです。
どなたかご指導お願い致します。

　　　　A　　　　　　B　　　　　　C　　　　　　D　　　　　E　　　
１　担当者　　商品名　　　　　数量　　販売単価　　売上月
２　鈴木　　　　ノート　　　　　　９０　　　１７０　　　　　４月
３　上田　　　　消しゴム　　　　８０　　　１８０　　　　　６月
４　松岡　　　　バインダー　　３００　　　３００　　　　　８月
５　
６　
７

回答No.1

bunjii

E列の売上月が文字列としてシート名をSheet1、Sheet2とすればSheet2のA2セルは数次の式で良いと思います。

=IFERROR(INDEX(Sheet1!$A$1:$E$100,MOD(SMALL(IF(Sheet1!$E$2:$E$100="","",SUBSTITUTE(Sheet1!$E$2:$E$100,"月","")*1000+ROW(A$2:A$100)),ROW(A1)),1000),COLUMN()),"")
この数式はIF関数の返り値を配列で返す必要がありますのでCtrl+Shift+Enterで確定します。
A2セルを右へE2までコピーし、下へ必要数だけコピーしてください。
但し、元データの最大行番号を100としていますので実データの行数に合わせて変更してください。
尚、SUBSTITUTE関数の返り値を1000倍していることとMOD関数の除数の1000は元データの最大行数より大きい桁数に変更してください。

元データの売上月が日付のシリアル値の場合は正しい結果を得られませんのでSUBSTITUTE関数の部分を他の関数に置き換える必要があります。