【ﾕｰｻﾞ定義関数】メアド結合

◆構文

　MailAdd(範囲)

◆解説

セルに入っているメールアドレスをOutlookの送信形式で結合する関数です。作成後はメール画面の To や Cc にコピペして下さい。
範囲　：データを探すセルの範囲

◆ソースコード

Function MailAdd(MainV As Object)
    Dim maxN As Integer
    Dim m As Integer
    Dim tmp
    maxN = MainV.Count
    tmp = ""
    For m = 1 To maxN
        If MainV(m) <> "-" Then
            tmp = tmp & MainV(m) & "; "
        End If
    Next m
    MailAdd = tmp
End Function

◆補足
"-" はスキップ、空白は半角スペースという仕様で作成されています

◆登録方法

• #VBA