住所録にチェックを入れた対象のメールアドレスを結合したいのですが、一括で処理する方法を教えて下さい

"関数で処理できれば"
というところの意味、意図が読み取れないところがあるのですが、
VBA、ユーザー定義関数でも構わないのであれば、と考えてみました。
（ただし、VBA使用となれば、エクセルブックの保存タイプも「.xlsm」にしなければならない点はどうしてもVBAを全く使用しないブックのときの「.xlsx」で済むのに比べ異なる点となりますが。）

Function mailIdConcat()
Dim trgSh As Worksheet
Dim wkLastRow
Dim wkResult
Dim wkI
    '処理対象とするワークシート
    Set trgSh = ActiveSheet
    '最終行番号を求める
    wkLastRow = trgSh.UsedRange.Rows.Count
    
    wkResult = ""
    For wkI = 2 To wkLastRow
        If trgSh.Range("A" & wkI) = "〇" And trgSh.Range("E" & wkI) <> "" Then
            '〇印あってもメールIDが空の場合は処理対象外とする
            wkResult = wkResult & trgSh.Range("E" & wkI) & ";"
            '先頭にセミコロン付けない意味で最後に付加する方式で進める
        End If
    Next wkI
    
    If wkResult = "" Then
        mailIdConcat = "Data Nothing!"
        '対象物がひとつもない場合のメッセージ代わり
    Else
        mailIdConcat = Left(wkResult, Len(wkResult) - 1)
        '区切りセミコロンの最後のものを除去する
        '（メールの送信先指定では最後にコロンが有っても支障ないと思うが）
    End If
End Function  

=mailIdConcat()

Sub mailIdConcat起動()
    Range("I1") = "=mailIdConcat()"
    'セルI1が結果を表示するセルの場合
End Sub