【Excel】条件に合致するデータ一塊を別シートに抽出して自動的に反映させたい

Question

前提・実現したいこと

Excelにて、下図のように全体の表から社員ごとの表に自動的に反映されるようにしたいです。

1列の中に違う情報が入っており、かつその中から欲しい2マスを抽出する方法が上手くいかず悩んでおります。
このような場合、どのような式を使用すれば良いでしょうか？

Answer 1

VBAでいいならこんな方法が考えられます。

'ThisWorkbookオブジェクト
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "全体" Then Exit Sub
    Sh.Range("C4", Sh.Cells.SpecialCells(xlCellTypeLastCell)).ClearContents
    
    Dim r As Long, col As Range, cell As Range
    For Each col In Sheets("全体").UsedRange.Columns
        r = 4
        For Each cell In col.Cells
        If cell.Value = Sh.Name Then
            Sh.Cells(r, cell.Column) = cell.Offset(1)
            Sh.Cells(r + 1, cell.Column) = cell.Offset(2)
            r = r + 2
        End If
    Next cell, col
End Sub

Comments

[退会済みユーザー]

ご回答ありがとうございます。
VBAはあまりわからず、試しに標準モジュールにコピペしてみましたが上手く動きませんでした。
素人丸出しで申し訳ありませんが、どのようにしたら動くでしょうか？

[jinoji]

標準モジュール(Module1とか)ではなく、ThisWorkbook というモジュールがあるはずですので、そちらにコピペしてみてください。

[退会済みユーザー]

既に表を作っていたところで動いていました。ありがとうございます！
ちなみに、表をコピーしたりしたいときはどうしたら良いでしょう？
今のところは適当な文字を入れて式を崩して一時的に無効にしております。

[jinoji]

一時的であればそのやり方でもいいしコードの各行に ' を入れてコメント化するのでもいいと思います。

また、いまはシートを切り替えるたびに動くようになっていますが、
もしかしたらボタンを押したら動く形に変えた方がいいかもしれません。

[退会済みユーザー]

なるほど、用途的にはボタンを付けることも検討して良さそうですね。
ありがとうございます。

[退会済みユーザー]

すみません、再度の質問で申し訳ありません。
最後にお聞きしたいのですが、上記式にて反映先のシート名を参照しているのはどの部分になるでしょうか？
実際には、シート”全体”内の社員A等の名称と抽出して反映するためのシート名が若干変わってくるので、そこを自分で変更できるようにしたいと思っております。

[jinoji]

If cell.Value = Sh.Name Then の行の、Sh.Name の部分がシート名です。

[退会済みユーザー]

ありがとうございます。
例えば「正社員A」や「契約社員B」などをシート名に使用したい場合はどのように追加いたしますか？

[jinoji]

シート名は「正社員A」で、全体シートのセル上は「社員A」になっている場合、ということですか？
もしそうなら、正社員AシートのA1セルあたりに「社員A」と入れておいて、
If cell.Value = Sh.Range("A1").Value Then
とかでしょうか。

[退会済みユーザー]

切り替わりました。ありがとうございます。
気づいたのですが、元シートの社員A等を消したり書き換えたりしても反映先のデータは一緒に消えないのですね。
一応、使用日と個数を先に消してから使った人を消すことで可能ですが、他に何か良い方法はないでしょうか。
最後と言いつつ何度も聞いてしまって申し訳ありません。

[jinoji]

あれ、書き換えたあとにシートを切り替えれば反映される気がしますが、、、
まあ、どんなときにどんな使われ方をするのかをあまりわからないまま書いたコードなので、
今一つ気が利いていないところもあるかとは思います。すみません。
ですので、もし今後手を加えていくなら、
そのあたりのところを改めて整理してみるのがいいと思います。頑張ってください。