[[20210116123622]]　『対象のメールアドレスを表示』（あと一歩）　ページの最後に飛ぶ

『対象のメールアドレスを表示』（あと一歩）

こんにちは。ご指導お願いします。

【やりたい事】
対象のメールアドレスに：をつけて、連続表示させて
そのアドレスをメールの宛先に貼り付けて一斉送信したい

下記の一覧があり、A1の入力規則で選択すると、メール送信の
対象者はA列に対象と表示され、E列にメルアドが表示されます。
この対象者のメルアドに、メールを送りたいので、
B1にメルアド(Aさん);メルアド(Cさん);メルアド(Dさん);メルアド(Fさん)を
連続表示させて、それをコピーして新規メールの宛先に貼り付け送信したい。

      　  A 　　　　　　　B　　  　　 C　　　      　D　　　        E
1　＜選択＞
2     対象　　   会社名　     　  Aさん　      アドレス      　 ***@***
3    　　　　   　会社名　     　   Bさん　      アドレス
4     対象　　   会社名　     　  Cさん　      アドレス　　  　***@***
5     対象　   　会社名　     　  Dさん      　アドレス         ***@***
6   　　　　　  　会社名　　        Eさん　      アドレス
7     対象　　   会社名　　       Fさん　      アドレス         ***@***

色々、調べて試しましたがなかなか上手く行きませんでした。
マクロはよくわからないですが、簡単な関数ならわかるので
出来れば関数でお願いします。

宜しくお願いします。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

最近のバージョンで出来るかは未検証です。

[[20060726150710]]　『ハイパーリンクでメールを作成』（kami）
（OK） 2021/01/16(土) 13:17

 複数宛先にメール送信する場合は
 宛先を「,」で挟んでやればいいようです。
（OK） 2021/01/16(土) 13:35

 A列が「対象」のセルのD列の文字列を連結します。

 =TEXTJOIN(", ",TRUE,IF(A1:A7="対象"D1:D7,""))

 ※私の使ってるエクセルは古いので正しい結果を出してるかは
 検証出来てません。
 TEXTJOIN関数はExcel2016から追加されたようです。
（OK） 2021/01/16(土) 14:30

Excel2013でしたか。

TEXTJOINは使えないですね。失礼しました。
（OK） 2021/01/16(土) 14:31

 F列を作業列として使用する案です。

 F1
 =IF(E1<>"",E1,"")

 F2
 =IF(E2<>"",IF(F1<>"",F1&","&E2,E2),F1)

 F2を必要なだけ下方向へコピー
 最終行をコピーしクリップボードへ格納

 セルを選択してコピーしたら不要な改行が末尾につくので
 コピーした後改行は削除してください。
（OK） 2021/01/16(土) 16:38

 HYPERLINK関数でメールを起動する場合です。

 例
 F9:メールアドレス(全ての送信先メールアドレスを連結したセル)
 H1:CCアドレス
 J1:ﾒｰﾙタイトル
 J2:メール内容

 =HYPERLINK("mailto:"&F9&"?cc="&H1&"&subject="&J1&"&body="&J2,"クリックでメール起動")

 ハイパーリンクをクリックでメーラーが起動し、送信先、CC宛先、メールタイトル、メール内容が自動で
 入ります。
（OK） 2021/01/16(土) 16:56

 ↑のF列を作業列とする案は、ご自分の環境に合わせて
 適宜ｾﾙｱﾄﾞﾚｽを変更してください。

 データが2行目から始まる場合は、
 >F1
 >=IF(E1<>"",E1,"")

 >F2
 >=IF(E2<>"",IF(F1<>"",F1&","&E2,E2),F1)

 ↓になります。

 F2
 =IF(E2<>"",E2,"")

 F3
 =IF(E3<>"",IF(F2<>"",F2&","&E3,E3),F2)
（OK） 2021/01/16(土) 17:04

出来ました！　感動！！

ありがとうございます　m(_._)m

＾０＾ｖ
（あと一歩） 2021/01/16(土) 18:08

コメント返信：

[ 一覧(最新更新順) ]

[[20210116123622]] 『対象のメールアドレスを表示』（あと一歩） ページの最後に飛ぶ

[[20210116123622]]　『対象のメールアドレスを表示』（あと一歩）　ページの最後に飛ぶ