条件に一致した年と月の横のデータを抽出

質問

エクセルでわからないことがあり
どなたか詳しい方いらしたら教えていただけないでしょうか？
例
年　　　月　　　　日　　　曜日
2009 1 14 水
2009 1 13 火
2008 1 9 金
2008 8 2 木
2007 1 7 水
2007 1 6 火
2006 1 5 月
2006 12 30 火

このようなデータがずっと続いているのですが
横に年度別に並べ替える方法はないでしょうか？
↓のような感じです。
2009　1 22 水　2008 2　22　水　2007　2　23　水
2009　2 23　水　2008 1 22 水　2007　1　22　水

ピポットテーブルを使うと関数が使いづらくなり余計にタイムロスに
なるので申し訳ありませんがテーブル以外の方法でお願いします。

回答No.1

KURUMITO · ベストアンサー

シート1にお示しの表がありすべてのデータは2行目からで、Ａ列には2009などがＢ列には月が、Ｃ列には日にちが、Ｄ列には曜日が入っているとします。
そこで作業列として例えばＦ2セルには次の式を入力して下方にオートフィルドラッグします。
=IF(A2="","",A2&"/"&COUNTIF(A$2:A2,A2))
シート2にお求めの表を作成するのですがＡ2セルには次の式を入力し、右横方向にオートフィルドラッグしたのちに下方向にもオートフィルドラッグします。
=IF(COUNTIF(Sheet1!$F:$F,(MAX(Sheet1!$A:$A)-INT((COLUMN(A1)-1)/4))&"/"&ROW(A1))=0,"",INDEX(Sheet1!$A:$D,MATCH((MAX(Sheet1!$A:$A)-INT((COLUMN(A1)-1)/4))&"/"&ROW(A1),Sheet1!$F:$F,0),IF(MOD(COLUMN(A1),4)=0,4,MOD(COLUMN(A1),4))))

回答No.2

rivoisu

VBAを使わないのだったら年をキーにソートしてその後切り貼りする。