一覧表に、メールアドレスが入っているとき、特定の人だけを選んで（下記のマクロでは、M列に、１が入っている人だけを選んでいる）、メールアドレスを合体するマクロです。一度、このエクセルマクロで合体し、これをメーラーの宛先にコピペして、メールを送ればOKです。
Sub メアド合体マクロ()
Dim a As String
Dim b As String
Dim i As Integer
b = ""
For i = 3 To 45 ’この場合、３行目から45行目までの名簿です。
If Cells(i, "M").Value = 1 Then 'M列目に、1が入っている人のメアドを選択する。
a = Cells(i, "J").Value ’J列にメアドが入れてある。
Cells(7, "P").Value = b & a & "; " 'P7のセルに、合体メアドを表示します。
b = Cells(7, "P")
End If
Next
End Sub
