![見出し画像](https://assets.st-note.com/production/uploads/images/118146121/rectangle_large_type_2_d07ed438372207dd6932ebf2a1534fe3.png?width=1200)
【ユーザ定義関数】メアド結合
◆構文
MailAdd(範囲)
◆解説
セルに入っているメールアドレスをOutlookの送信形式で結合する関数です。作成後はメール画面の To や Cc にコピペして下さい。
範囲 :データを探すセルの範囲
![](https://assets.st-note.com/img/1696561084471-BCqFcd0AKE.png)
◆ソースコード
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
◆補足
"-" はスキップ、空白は半角スペースという仕様で作成されています
◆登録方法
この記事が気に入ったらサポートをしてみませんか?