エクセルでの一括データ処理(日付補完など)

質問

エクセルによるデータ整理に手を焼いています。
データファイルを下記の様に変換して整理したいと考えています。

＜元データ＞
[A]　　　　　　　[B] 　　　　　　　[C]　　　　　　　[D] …
[1] 日付1　　　　　値1　　　　　　　日付2　　　　　　値2
[2] 2007/12/7　　　1　　　　　　　　2007/12/5　　　20
[3] 2007/12/9　　　4　　　　　　　　2007/12/6　　　30
[4] 2007/12/11　　 3　　　　　　　　2007/12/7　　　15
[5] 　　　　　　　　　　　　　　　　　 　2007/12/10　　10
[6] 　　　　　　　　　　　　　　　　　 　2007/12/11　　10
(A5:B6は空白です)

＜変換後データ＞　
　　[A]　　　　　[B]　　　　　　[C]　　　　
[1]日付　　　　　値1　　　　　値2
[2]2007/12/5　　NA　　　　　20
[3]2007/12/6　　NA　　　　　30
[4]2007/12/7　　　1　　　　　15
[5]2007/12/8　　NA　　　　　NA
[6]2007/12/9　　　4　　　　　NA
[7]2007/12/10　　NA　　　　10
[8]2007/12/11　　3　　　　　10
("NA"部分は"0"あるいは空白で構いません)

同種の質問としてttp://okwave.jp/qa/q3911631.htmlを見つけましたが、
データファイルが大きいので、どうにかして一括で処理する方法を探しています。

やりたいことは、
(1)飛び飛びになっているデータの日付を補完し、
(2)日付を示す系列は1つだけに留めた上で日付に対応した値を並べる
です。

マクロによる処理でも関数による処理でも何でも構いませんので、
どなたか解決策をご教示していただけると助かります。

なお、実際に処理したいデータファイルは1000列ほどで、500種類くらいの値とそれらに対応した日付が並んでいます。
使用しているエクセルは2007です。

回答No.3

kagakusuki

今仮に、＜元データ＞が入力されているシートがSheet1、＜変換後データ＞を表示させるシートがSheet2であるものとします。

　まず、Sheet2のA2セルとA3セルの書式設定を[日付]として下さい。
　次に、Sheet2のA2セルに、次の数式を入力して下さい。

=MIN(Sheet1!$A:$A,Sheet1!$C:$C)

　次に、Sheet2のA3セルに、次の数式を入力して下さい。

=IF(A$2+ROW()-ROW(A$2)>MAX(Sheet1!$A:$A,Sheet1!$C:$C),"",A$2+ROW()-ROW(A$2))

　次に、Sheet2のB2セルに、次の数式を入力して下さい。

=IF($A2="","",IF(COUNTIF(Sheet1!$A:$A,$A2)=0,"NA",VLOOKUP($A2,Sheet1!$A:$B,2,FALSE)))

　次に、Sheet2のC2セルに、次の数式を入力して下さい。

=IF($A2="","",IF(COUNTIF(Sheet1!$C:$C,$A2)=0,"NA",VLOOKUP($A2,Sheet1!$C:$D,2,FALSE)))

　次に、Sheet2のB2～C2の範囲をコピーして、Sheet2のB3～C3の範囲に貼り付けて下さい。
　次に、Sheet2のA3～C3の範囲をコピーして、同じ列の4行目以下に貼り付けて下さい。

　以上です。