エクセル関数【月別シートの内容を表示させる】

質問

エクセルで各月で分かれたシートに、情報が入っていて、そちらをひとつにまとめることは可能でしょうか？
情報が入っている部分は固定とします。

例：入力場所、各シートA1～A10まで。

1シート
A1　天気がいい
A2　天気がわるい
A3　雨だ
A4　晴れだ

2シート
A1　体調がわるい
A2　体調がいい

3シート
なし

4シート
A1　元気がいい

・・・12シート

合計シート
A1　天気がいい
A2　天気がわるい
A3　雨だ
A4　晴れだ
A5　体調がわるい
A6　体調がいい
A7　元気がいい
・・・

といった感じなのですが、やはりVBAでないと実装は難しいでしょうか？

回答No.7

KURUMITO

関数で行うには結構面倒ですね。
それぞれのシートには作業列を作って対応します。
仮にシートがSheet1からSheet12まであるとしまします。
Sheet1のB1セルには次の式を入力して下方にオートフィルドラッグします。

=IF(A1="","",COUNTA(A$1:A1))

次にシート見出しでSheet2を選択してから、Shiftキーを押しながらSheet12をクリックしてSheet2からSheet12までを同じ作業グループにします。その上で、Sheet2のB1セルには次の式を入力して下方にオートフィルドラッグします。

=IF(AND(A1="",ROW(A1)>1),"",MAX(INDIRECT("Sheet"&SUBSTITUTE(TRIM(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,10)),"Sheet","")-1&"!B:B"))+COUNTA(A$1:A1))

これでSheet2からSheet12までのB列には同じ式が入力されることになります。
そこでお望みのまとめのシートを別に用意してA1セルからK1セルにはSheet1からSheet12までの文字を入力します。
A2セルには次の式を入力してK2セルまで横にオートフィルドラッグします。

=IF(ISERROR(INDIRECT(A1&"!A1")),"",COUNTA(INDIRECT(A1&"!A:A")))

A3セルには次の式を入力してK3セルまでオートフィルドラッグします。

=IF(A2="","",SUM($A2:A2))

その上でお求めの表をA5セルから下方に表示させるとしたらA5セルには次の式を入力して下方にオートフィルドラッグします。

=IF(ROW(A1)>MAX($3:$3),"",INDEX(INDIRECT(INDEX($1:$1,IF(ROW(A1)<=SMALL($3:$3,1),MATCH(SMALL($3:$3,1),$3:$3,0),IF(COUNTIF($3:$3,ROW(A1)),MATCH(ROW(A1),$3:$3,0),MATCH(ROW(A1),$3:$3,1)+1)))&"!A:A"),MATCH(ROW(A1),INDIRECT(INDEX($1:$1,IF(ROW(A1)<=SMALL($3:$3,1),MATCH(SMALL($3:$3,1),$3:$3,0),IF(COUNTIF($3:$3,ROW(A1)),MATCH(ROW(A1),$3:$3,0),MATCH(ROW(A1),$3:$3,1)+1)))&"!B:B"),0)))

お礼

ご回答ありがとうございます！！
内容的にはデータがバラバラのときは合計の数と差分で入力するのでしょうか。。抽象的な質問ですみません。最後の関数のところで、入力した数式は正しくありませんとでました。
解決できそうですので、がんばってみます。
ありがとうございました！