EXELについての質問です。

質問

EXELについての質問です。
「ブック内のシート1に日付がばらばらの状態で打ち込まれた元データがあり、
　シート2に、このデータから月別のデータを日付順に並び替えた状態にして反映させたい。」
（例を画像添付で表示しています。）
オートフィルターやピポットテーブルを使ってみましたが上手くいきません。
また、VBAについての知識はほとんど持ち合わせて無いのですが、
今回の場合はどうも必要なのでは、と考えたりもします。
いずれにしても、自分の力ではどうしようも出来ない状態ですので、
どうか教えて下さい。

回答No.2

KURUMITO · ベストアンサー

画像の添付が見られないのでわかりませんが、例えばシート１のＡ列には日付が２行目から下方にあり、関連のデータがＤ列までにあるとします。
Ｅ列を作業列としてＥ２セルには次の式を入力して下方にオートフィルドラッグします。

=IF(A2="","",RANK(A2,A:A,1))

次にシート２のＡ２セルには次の式を入力してＤ２セルまでオートフィルドラッグしたのちに下方にもオートフィルドラッグします。

=IF(COUNTIF(Sheet1!$E:$E,ROW(A1))=0,"",INDEX(Sheet1!$A:$D,MATCH(ROW(A1),Sheet1!$E:$E,0),COLUMN(A1)))

最後にＡ列は日付ですのでセルの表示形式を日付にします。

お礼

有り難うございます。
RANK関数で、昇順にするという発想がなかったのですが、
これを使って作り上げることができました！
どうもです。

回答No.3

KURUMITO

回答Ｎｏ２です。
ある月だけをシート２に順序よく取り出すのでしたら
シート２のＡ１セルに2010/5/1のように入力してセルの表示形式のユーザー定義で m"月"　として例えば５月と表示させます。
その上でシート２のＡ２セルには次の式を入力してＤ２セルまでオートフィルドラッグしたのちに下方にもオートフィルドラッグします。

=IF(COUNTIF(Sheet1!$E:$E,INDEX(Sheet1!$E:$E,MATCH($A$1,Sheet1!$A:$A,1))+ROW(A1))=0,"",IF(MONTH(INDEX(Sheet1!$A:$A,MATCH(INDEX(Sheet1!$E:$E,MATCH($A$1,Sheet1!$A:$A,1))+ROW(A1),Sheet1!$E:$E,0)))<>MONTH($A$1),"",INDEX(Sheet1!$A:$D,MATCH(INDEX(Sheet1!$E:$E,MATCH($A$1,Sheet1!$A:$A,1))+ROW(A1),Sheet1!$E:$E,0),COLUMN(A1))))

お礼

有り難うございます。
かなりレベルの高い数式なので、ちょっと使うのは困難でしたが、
解読して行く中でかなり色々勉強になりました。
色々参考にさせていただきます。

回答No.1

mu2011

安直ですがデータを日付で並び替え（昇順）では駄目でしょうか。