Excel - セルの文字列の結合

質問

以下の表(500行くらい)は、メール送信が必要な会社にオートフィルタをかけた結果です。
フィルタ後の支社は全て同じです (以下のサンプルは、「西日本」でフィルタをかけています)。
ただ、西日本支社の会社全てに送るわけではないので、送る必要のある会社にはA列に○をつけました (○以外にする運用でも構いません)。

　A　　　　B　　C　　　D　　E　　　　　　　F　　G
　フラグ　社名　支社　担当　担当アドレス　担当2 担当2のアドレス
2 ○　B社 西日本 山田　メールアドレス1　高橋　メールアドレス2
5 ○　E社 西日本 山下　メールアドレス3
7 ○　F社 西日本 井川　メールアドレス4　田中　メールアドレス5
10 ○　K社 西日本 山崎　メールアドレス6　田上
15 ○　L社 西日本 山井　メールアドレス8　高田　メールアドレス9

このフィルタ後の担当者にBCCでまとめてメールを送るために、以下のような形式にして書き出し、Outlook ExpressのBCCに貼り付けたいです。

メールアドレス1, メールアドレス2, メールアドレス3,・・・

フィルタをかけずに、A列が「○」でC列が「西日本」であるE列とG列を取り出すといったことができればそれでも構いません。担当2のメールアドレスはないこともあるので、単純に E5 & "," & G5 & "," & E7 とやると、G5がないのでカンマがダブってしまいます。

何かいい方法はありますでしょうか。
宜しくお願い致します。

回答No.2

web2525 · ベストアンサー

ではマクロで
フラグに○のついている行のメールアドレスをBCCと言うファイル名で保存します。
テキストファイ入で開いてすべて選択してコピー後OEのBCC欄に貼り付けてください。
最後の保存先フォルダーの場所は書き換えて実行してください。
エクセルのバージョン2003以前の場合256アドレスまでしか対応できません。
それ以上のアドレス宛に送信する場合は一部変更が必要。

Sub Macro1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Worksheets.Add after:=Worksheets(1)
Set BCC = Worksheets(2)
BCC.Name = "BCC"
Set AcSELL = BCC.Range("A1")
Worksheets(1).Select
Fend = Range("A65535").End(xlUp).Address
For Each lp In Range("A1:" & Fend)
If lp.Value = "○" Then
AcSELL.Value = lp.Offset(0, 4)
If lp.Offset(0, 6) <> "" Then
AcSELL.Offset(0, 1).Value = lp.Offset(0, 6).Value
Set AcSELL = AcSELL.Offset(0, 1)
End If
Set AcSELL = AcSELL.Offset(0, 1)
End If
Next
BCC.Activate
ActiveWorkbook.SaveAs Filename:= _
"C:保存先フォルダーのフルパス\BCC.csv", FileFormat:=xlCSV, _
CreateBackup:=False
BCC.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

お礼

お返事遅くなりまして申し訳ございません。
ありがとうございました。(^^)

回答No.1

web2525

フィルターを掛けた状態で
担当アドレス部分のみコピー別シートに貼り付け、担当2アドレス部をコピー担当アドレスの下に貼り付け。
アドレス列をソートして範囲をコピーし行列を入れ替えて貼り付け（エクセルバージョンが2003以前であれば複数行に分けて貼り付け)、シートをCSV形式で保存、保存されたファイルをメモ帳などで開いて行単位でコピーしてBCC欄に貼り付け。
で出来ないかな？

お礼

ありがとうございます。
どうしても多少は手作業になってしまうのですかね。
もう少し簡単にできる方法があればと思っているのですが。