こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBAマクロで特定文字から文字までを抜き出す

下記のサンプル文字列がありますが、余計な文字が入っているので削除をして
目的部分のみ抽出したい。

aaaa@gmail.com>

時折、下記の様な場合があるのでドメイン部分だけ抜き出したい。

@しつもん株式会社aaaa@gmail.com>

@だけでMIDとかで書き出すと「しつもん株式会社」以降も抜き出される
ので、「>」以前で「@」以降を抜き出すって形にしたいのですが、ネットで
検索をしても??だったので質問させて頂きます。

投稿日時 - 2016-10-19 12:31:49

QNo.9244778

困ってます

質問者が選んだベストアンサー

こんにちは
Sub test()
  Dim s As String
  Dim i As Long
  s = "@しつもん株式会社aaaa@gmail.com>"
  i = InStrRev(s, "@") + 1
  MsgBox Mid(s, i, Len(s) - i)
End Sub
とかでしょうか?

投稿日時 - 2016-10-19 13:31:32

お礼

ありがとうございます!
あんなに悩んでいたのに一発で解決です!
今後とも宜しくお願い致します。

投稿日時 - 2016-10-19 16:23:57

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

Dim s As String
Dim p1 As Integer
Dim p2 As Integer

s = "@しつもん株式会社aaaa@gmail.com>"
p1 = InStrRev(s, "@")
p2 = InStr(p1, s, ">")
Debug.Print Mid(s, p1 + 1, (p2 - p1 - 1))

投稿日時 - 2016-10-19 13:42:43

お礼

様々な方法があるんですね!
あんなに悩んでいたのに一発で解決です☆

ただ、ushi2015さんが先に回答されたので
申し訳ありませんが、ベストアンサーとさせて
頂きました。

今後とも宜しくお願い致します。

投稿日時 - 2016-10-19 16:23:16

あなたにオススメの質問

オススメのQ&Aはありません。