Excel の出勤管理表について

質問

勤務地ごとに分かれている出勤管理表のシートを、関数を使用してひとつにまとめたいです。
必要であれば、作業用の列や行の挿入、シートの追加もかまいません。

～現状～
・勤務地ごとにシートが分かれています。
・各シートには、その勤務地に通勤可能なスタッフのみが、載っています。
・同一スタッフが、シートを跨いで複数載っているケースもあります。
・縦軸がスタッフＩＤ、横軸が日付、交差しているセルに出勤マークが入力されています。

～希望～
勤務地ごとに分かれているシートをまとめ、スタッフ全員が記載された一つのシートを、別に作成したいです。

-----------------------
【シート1】（勤務地：●）

　 Ａ　　Ｂ　　Ｃ　　Ｄ　　E　　F
1　 　　　 日付
2 　ＩＤ　　1　　2　　3　　4　　5　　
3 1111 　　　●　　　　　　　●　

-----------------------

【シート2】（勤務地：☆）

　 Ａ　　Ｂ　　Ｃ　　Ｄ　　E　　F
1　 　　　 日付
2 　ＩＤ　　1　　2　　3　　4　　5　　
3 1111 ☆　　　　 ☆
4 2222　　　　☆　　　　☆

-----------------------

【シート3】（勤務地：◆）

　 Ａ　　Ｂ　　Ｃ　　Ｄ　　E　　F
1　 　　　 日付
2 　ＩＤ　　1　　2　　3　　4　　5　　
3 2222　　　　　　　◆
4 3333　　　　◆　　　　　　　◆

-----------------------

上記のシートをまとめて、、、

-----------------------

【シート4】（まとめ）

　 Ａ　　Ｂ　　Ｃ　　Ｄ　　E　　F
1　 　　　 日付
2 　ＩＤ　　1　　2　　3　　4　　5　　
3 1111 ☆ 　●　　☆　　　　　●
4 2222　　　　☆　 ◆　☆
5 3333　　　　◆　　　　　　　　◆

-----------------------

このようなシートを、別途作成したいのですが、何か良い方法ございますでしょうか。
初心者なりに知っている関数を組み合わせどうにかできないか、ない知恵をいろいろ絞ってみたのですが歯が立ちませんでした。

つたない説明で申し訳ございません。
どなたかお知恵をお貸しいただけると、大変有難いです。
どうぞよろしくお願いいたします。

回答No.1

MackyNo1 · ベストアンサー

3シートをまとめるなら、以下のような直列につないた関数がわかりよいと思います。
（シート４のB3セルに入力して右方向および下方向にオートフィルコピー）

=IF(COUNTIF(Sheet1!$A:$A,$A3),INDEX(Sheet1!B:B,MATCH($A3,Sheet1!$A:$A,0)),"")&IF(COUNTIF(Sheet2!$A:$A,$A3),INDEX(Sheet2!B:B,MATCH($A3,Sheet2!$A:$A,0)),"")&IF(COUNTIF(Sheet3!$A:$A,$A3),INDEX(Sheet3!B:B,MATCH($A3,Sheet3!$A:$A,0)),"")

お礼

ありがとうございます！できました！
matchを何かと組み合わせて使うんだろうな、と考えてはいたのですが、ぜんぜん考えが及びませんでした。
本当に助かりました。

皆さんの回答参考になったのですが、一番早くご回答いただいた、こちらをベストにさせていただきます。
ありがとうございました。

回答No.3

imogasi

表の組み換えの問題だと思う。
各シートのデータ列の構成（並び順や有無）は同じなのだろうね。質問に長々と例を挙げているが、一番大切なことだ。
こういうのは関数では難しい。ひっぱって来るデータ数(行数）が各シートで一定ではないから。
（１）関数
（２）VBA
（３）出来合いのソフト
（４)手操作
（３）は見つけるのが難しいだろう。
（２）は経験は無いのだろう。
今回限りなら、手作業でコピペして、シートを集約するのが早い。毎月とかに、この作業を繰返すのか？
この点も質問に書いておくことが大切だ。
（２）は職員の名簿が１セットあれば、その職員名でデータを抜き出す、抜き出し問題になるが、複数シートに、同一職員が現れると、対処が難しい。
結果は、既に回答が出ているような、長い関数式ならできるということだが、質問者は式の意味を理解できるかな。　
ーーーー
言ったついでに、参考に、シートデータを集約する、VBAのコードを挙げてみる。
下記コードで仮定した点
・Sheet4という名のシートにデータを集める
・第3行からが実質データとする。１，２行目は各シート共通の見出しとする。
・データの右端の列はJ列と仮定（月中日付ならもっと多いが）
上記仮定は、1-数文字のコードを変えれば、簡単に変えられる。
ーーー
Sub test02()
'見出しのコピー　Sheet1から
Worksheets("Sheet1").Range("A1:j2").Copy Worksheets("Sheet4").Range("a1")
'--各シートからデータを寄せ集め
For Each sh In Worksheets '全（各）シートの繰り返し
If sh.Name <> "Sheet4" Then '集約シート以外を対象にする
d1 = sh.Range("A65536").End(xlUp).Row '各シートのデータ最下行を調べる
'MsgBox sh.Name & " " & d1
'--集約シートの最下行を調べる
d2 = Worksheets("Sheet4").Range("A65536").End(xlUp).Row
'--集約シートの最下行の次に貼り付け
sh.Range("a3:J" & d1).Copy Worksheets("Sheet4").Range("a" & d2 + 1)
End If
Next
End Sub
この結果を、職員コードでソートすると職員別に記録データ行がまとまる。

お礼

的確なアドバイス、ありがとうございます。
お察しのとおり、VBAは使用したことがなく、いただいた内容を理解するには、まだまだ勉強不足です。
（他の方の関数は、理解できました！）

これから少しずつ、VBAについても勉強していこうと思いました。
ありがとうございました！

回答No.2

KURUMITO

シート4のB3セルには次の式を入力して右横方向にオートフィルドラッグしたのちに下方にもオートフィルドラッグします。

=IF(COUNTIF(Sheet1!$A:$A,$A3),INDEX(Sheet1!$A:$AX,MATCH($A3,Sheet1!$A:$A,0),MATCH(B$2,Sheet1!$2:$2,0)),"")&IF(COUNTIF(Sheet2!$A:$A,$A3),INDEX(Sheet2!$A:$AX,MATCH($A3,Sheet2!$A:$A,0),MATCH(B$2,Sheet2!$2:$2,0)),"")&IF(COUNTIF(Sheet3!$A:$A,$A3),INDEX(Sheet3!$A:$AX,MATCH($A3,Sheet3!$A:$A,0),MATCH(B$2,Sheet3!$2:$2,0)),"")

お礼

ありがとうございます。
こちらの回答も大変参考になりました。
INDEXの使用、まったく考えが及びませんでした。
お恥ずかしいです。
大変助かりました！