メールアドレスを抜く（文字列） (ID:112859)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 このままでは使えませんが簡単な例です。 メールアドレスが無い場合、テキスト文が メールアドレスで始まっている場合、 テキスト文がメールアドレスで終わっている場合 等は全てエラーになります。 後はご自分で。 Dim s As String, t1, t2, t3 s = "a bc def g hij@klm.nop.qr st uvw xyz" s = Replace(s, " ", " ") '全角のスペースを半角に t1 = InStr(s, "@") t2 = InStr(t1, s, " ") t3 = InStrRev(s, " ", t1) Debug.Print Mid(s, t3 + 1, t2 - t3 - 1)