複数のメールアドレスをカンマ区切りでまとめる｜Excel

いちいちコピペは面倒くさい！

業務上、複数人にまとめてBccでメールを送ることが多々あります。数件なら一件ずつコピペしてもいいですが、十件超えると面倒です。件数多ければ重複したり抜けが出たりとミスが発生することが想定されます。

とにかく面倒なのでマクロを作ってみました。
ちょうどいいタイミングで、同じように一斉送信をしようと120件ほど手打ちしてるパソコンスキルほぼゼロの知り合いからも同じ相談を受けていました。

マクロのコードはこちら

Sub メールアドレスカンマ区切り結合() Dim MyArray() As Variant, Ad As String, i As Long, LastCell As Long      LastCell = Cells(Rows.Count, 1).End(xlUp).Row          ReDim MyArray(0 To LastCell - 1)         For i = 1 To LastCell             MyArray(i - 1) = Cells(i, 1)             Next i             Ad = Join(MyArray, ",")                 Cells(1, 3) = Ad  End Sub

一斉送信での注意点

尚、一斉送信の場合はTo・Cc・Bccの使い分けを理解することが重要です。

↓詳細はこちらを参照してください↓

business-mail.jp

Bccで送信しないと、メールアドレスが送信した人全員に公開されます。情報漏洩だー！誤送信だー！ってクレームを招きかねないので注意が必要です。

気が向いたら使ってみてください。