vba - 可変長文字列からメールアドレスを抽出

Question

文字列から電子メールアドレスを抽出するにはどうすればよいですか?

xxx my@email.com yyy

xxx と yyy は、任意の長さ、任意の文字にすることができます。メールアドレスはスペースで区切ります。

Answer 1

1 つの可能性:

sString = "my1@email.com xxx my2@email.com yyy my3@email.com"
asString = Split(sString, " ")
For i = 0 To UBound(asString)
    If asString(i) Like "*@*.*" Then
        sEmail = sEmail & "," & asString(i)
    End If
Next

MsgBox Mid(sEmail, 2)