エクセルでＡ列文字中にあるメールアドレスのみをＢ列に書き出す。

タイトル通りの質問なのですが、

Ａ列に５行程度の文字列があり、その中から<[e-mail]>となっているメールアドレスのみをＢ列に抽出したいのですが、いい方法を教えて頂けないでしょうか。

No.3 回答者： noname#24921 回答日時： 2005/08/06 22:47

Ｂ列に表示したいとのことですが、１個の式で出す方法を思いつかないので、Ｂ列とＣ列に式を入れ、Ｃ列に結果を表示する方法を書きます。

後でＢ列は非表示にしておくと良いと思います。
データがＡ１からＡ５に入っているとして

Ａ列　　　　　Ｂ列 　　　　　　 　　　　　Ｃ列
データ　　=SEARCH("@",Ａ１,1)　　　=IF(COUNT(B1)=1,A1,"")

Ｂ１とＣ１に上記の式を入れ、それぞれ５行目までコピーします。
式の意味はＢ１でアットマークが何文字目か出し、メールアドレスならば数値がでる。Ｃ１ではＢ１に数値が１個あればＡ１のデータを、数値が無ければ空白を。やってみて下さい。

この回答へのお礼

回答ありがとうございます。
今回はNO1の方に教えていただいた方法でやることになりましたが、
1628taniさんの方法もちょっとチャレンジしてみたいと思います。

お礼日時：2005/08/07 07:52

No.2 回答者： Wendy02 回答日時： 2005/08/06 20:53

こんばんは。

ユーザー定義関数で考えてみました。
こちらは、<...> という区切り文字がなくても、取り出せます。

Alt + F11 で、Visual Basic Editor 画面を開けたら、
メニューの[挿入]－[標準モジュール]　をクリックして、白い画面が開いたなら、以下のコードを貼り付けます。貼り付けたら、Alt + F11 で、元の画面に戻ります。

Function PickupADR(文字列 As Variant)
　Dim re As RegExp
　Dim Matches As Object, M As Object
　Dim i As Long, buf As Variant
　Set re = CreateObject("VBScript.RegExp")
　With re
　　.Pattern = "\w+@[\w\.]+"　'メールアドレスのパターン
　　.Global = True
　　If .test(文字列) Then
　　　Set Matches = .Execute(文字列)
　　　If Matches.Count = 1 Then
　　　　PickupADR = Matches(0).Value
　　　ElseIf Matches.Count > 1 Then
　　　　ReDim buf(0 To Matches.Count)
　　　　For Each M In Matches
　　　　　buf(i) = M.Value
　　　　　i = i + 1
　　　　Next
　　　　PickupADR = buf
　　　End If
　　End If
　End With
End Function

この関数は、一般的な関数のように使えますが、少し変わった特徴があります。

=PICKUPADR(A1)

とすれば、メールアドレスが取り出せますが、ひとつのセルに2つ以上入っている場合は、

=INDEX(PICKUPADR($A$1),1,COLUMN(A1))

として、フィルハンドル・コピーで、右にスライドすれば、次に入っているメールアドレスも取り出せます。

この回答へのお礼

回答ありがとうございました。
私には高度すぎてよくわかりませんでした…。
すみません。時間のある時に確認してみたいと思います。

お礼日時：2005/08/07 07:51

No.1 ベストアンサー 回答者： s_yoshi_6 回答日時： 2005/08/06 17:08

メールアドレスを検出するわけではありませんが、もしメールアドレスが< >で囲まれていて、かつ、< >の記号が文章の中でメールアドレスの部分のみに使われているか、他に使われていてもメールアドレスよりも後に使われているのであれば、次の方法を試してみて下さい。

Ａ列にA1から文章が入力されているとして、B1に
=MID(A1,FIND("<",A1,1)+1,FIND(">",A1,1)-FIND("<",A1,1)-1)
と入力して、以下コピーとします。
Ｂ列に< >の中のアドレスが表示されると思います。

なお、< >も含めて抜き出したいのであれば、
=MID(A1,FIND("<",A1,1),FIND(">",A1,1)-FIND("<",A1,1)+1)
として下さい。

この回答へのお礼

回答ありがとうございました。
うまくいきました！

お礼日時：2005/08/07 07:49