カレンダーに記入された内容を別の表にまとめる数式

質問

表1を、数式を使って表2へまとめる方法はありますでしょうか？

カレンダー形式の表に記入された内容を、カレンダー形式でない小さい表にまとめるという内容です。

よろしくお願いいたします。

＜表1＞
　　　　　　　　　　あかね　あゆみ　あつこ
4月1日(月)　　　　　A
4月2日(火)
4月3日(水)
4月4日(木)　　　　　　　　　　B
4月5日(金)
4月6日(土)
4月7日(日)
4月8日(月)　　　　　　　　　　　　　　　　C
4月9日(火)
4月10日(水)
4月11日(木)　　　　H
4月12日(金)
4月13日(土)
4月14日(日)　　　　　　　　　　　　　　　J
4月15日(月)　　　　　　　　　　I

＜表2＞
あかね 　　　　 　あゆみ あつこ
4月1日(月) A 4月4日(木) B 4月8日(月) C
4月11日(木) H 4月15日(月) I 4月14日(日) J

以上

回答No.1

KURUMITO · ベストアンサー

だいぶ複雑な式になってしまいますが次のようにしてはどうでしょう。
表1がシート1に有るとしてA2セルから下方にお示しのような日付の表示が有るとします。B1セルから右横方向にはあかね、あゆみ、あつこといった名前が表示されているとします。
そこでお求めの表をシート2に表示させるとして、一人の名前につき2列を使って表示させることにします。
A1セルには次の式を入力して右横方向にドラッグコピーします。

=IF(OR(MOD(COLUMN(A1),2)=0,INDEX(Sheet1!$1:$1,ROUNDUP(COLUMN(A1)/2,0)+1)=0),"",INDEX(Sheet1!$1:$1,ROUNDUP(COLUMN(A1)/2,0)+1))

A2セルには次の式を入力して式を確定する段階でCtrlキーとShiftキーを押しながらEnterキーを押します。
式の両側には{　　}が付いた式となります。
その式を右横方向にドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(ROW(A1)>COUNTA(INDEX(Sheet1!$A:$XX,2,ROUNDUP(COLUMN(A1)/2,0)+1):INDEX(Sheet1!$A:$XX,1000,ROUNDUP(COLUMN(A1)/2,0)+1)),"",IF(MOD(COLUMN(A1),2)=1,INDEX(Sheet1!$A:$A,SMALL(IF(INDEX(Sheet1!$A:$XX,2,ROUNDUP(COLUMN(A1)/2,0)+1):INDEX(Sheet1!$A:$XX,1000,ROUNDUP(COLUMN(A1)/2,0)+1)<>"",ROW(B$1:B$999),10000),ROW(A1))+1),INDEX(INDEX(Sheet1!$A:$XX,2,ROUNDUP(COLUMN(A1)/2,0)+1):INDEX(Sheet1!$A:$XX,1000,ROUNDUP(COLUMN(A1)/2,0)+1),SMALL(IF(INDEX(Sheet1!$A:$XX,2,ROUNDUP(COLUMN(A1)/2,0)+1):INDEX(Sheet1!$A:$XX,1000,ROUNDUP(COLUMN(A1)/2,0)+1)<>"",ROW(B$1:B$999),10000),ROW(A1)))))

最後にA列C列…といった奇数の列をCtrlキーを押しながら選択したのちに右クリックして「セルの書式設定」の「表示形式」で「ユーザー定義」を選択し、種類の窓には　m"月"d"日"(aaa) を入力してOKします。

お礼

KURUMITO様
アドバイスありがとうございます。お返事が遅れまして大変失礼いたします。試したところ、日付と名前がうまく反映されました！ありがとうございました。もう一点できればお教えください。ABC・・・と書いたところ、実際には4ケタの数字なのですが、これがSheet2では0になってしまいます。数字は、文字列がベストですが、数値として表示されてもさほど問題はありません。うまく反映させる方法あればお教えいただけないでしょうか。何卒よろしくお願いいたします。