##はじめに
タイトルがわかりにくいのですが、下のイメージのように、掃除当番表のようなテーブルがあり、月曜はグループ1の人が何人、グループ2の人が何人で、火曜は・・・ということを知りたいなと思い、VBAの関数を作成しました。

##コード

さっそくコードを書きます。


Function CountMember(member_list_rng As Range, target_rng As Range) As Long

Dim members As Variant
members = member_list_rng

Dim rng As Range

Dim i, n As Long
n = 0

For Each rng In target_rng
    For i = 1 To UBound(members, 1)
        If StrComp(rng.Value, members(i, 1)) = 0 Then
            n = n + 1
        End If
    Next i
Next

CountMember = n

End Function

##処理の流れ
続いて、処理の流れを説明します。

第一引数(member_list_rng)は、グループのメンバー一覧が記載されたRangeオブジェクト、第二引数(target_rng)は、調べたい対象のRangeオブジェクトとします。

まず、Variant型の変数(members)に第一引数のRangeオブジェクトを格納すると、グループのメンバーが配列となってmembersに格納されます。

この配列は二次元の配列になり、また、インデックスは0からではなく、1から始まることに注意が必要です。
例えば、以下のようなA1〜C5のセル範囲をmembersに格納すると、members(1 To 5, 1 To 3)となります。一次元目が行数、二次元目が列数ですね。今回の関数では、第一引数のセル範囲として列数＝1での処理を想定しています。

あとは、target_rng内のそれぞれのセルに対し、memmbersの全ての要素と値が一致しているか照らし合わせていきます(StrComp)。そして、値が一致している場合は、nに1を加えます。

最後にnを返しておしまいです。