名簿から乃木坂46在籍メンバー、卒業メンバー化をVBAで判別するマクロ

はじめに

乃木坂46の在籍メンバーリストを作成し、名簿から乃木坂46の在籍メンバーか、卒業メンバーかをセルに出力するマクロを開発しました。

名簿データ

名簿データは下記の画像です。

在籍メンバーリスト

在籍メンバーリストは下記の画像です

実装したソースコード

実装したソースコードは下記になります。

Sub Search_check()
    '在籍メンバーリスト開始行変数
    Dim z_start_num As Long
    z_start_num = 1
    '在籍メンバーリスト最終行変数
    Dim z_end_num As Long
    z_end_num = Cells(Rows.Count, 21).End(xlUp).Row
    '名簿メンバー開始行変数
    Dim m_start_num As Long
    m_start_num = 4
    '名簿メンバーリスト最終行変数
    Dim m_end_num As Long
    m_end_num = Cells(Rows.Count, 3).End(xlUp).Row
        
    '名簿メンバーリスと行番号変数
    Dim h As Long
    '在籍メンバーリスト行番号変数
    Dim i As Long
    '名簿メンバーが在籍しているか、卒業しているかチェック
    For h = m_start_num To m_end_num
        Dim m_count As Long
        m_count = 0
        Dim m_member As String
        m_member = Cells(h, 3).Value
        For i = z_start_num To z_end_num
            Dim z_member As String
            
            z_member = Cells(i, 21)
            If m_member = z_member Then
                m_count = m_count + 1
                
            End If
        Next i
        If m_count = 0 Then
            Cells(h, 4).Value = "卒業メンバー"
        Else
            Cells(h, 4).Value = "在籍メンバー"
        End If
    Next h
    
End Sub

実行結果

実行結果は以下の画像です。

最後に

データ件数が多くなると、マクロの効果が発揮されるかと思います。