VBA 大量メアドからドメイン情報を自動取得 大量メールアドレスからユーザ名とドメインを自動取得 Sub test() ' 大量メールアドレスからユーザ名とドメインを自動取得 Dim myStr As Variant Dim i As Long Dim myMax As Long myMax = Cells(Rows.Count, 1).End(xlUp).Row For i = 4 To myMax ' @マーク前後の文字列を変数myStrに代入 myStr = Split(Cells(i, 1), "@") '@マーク前のユーザ名をB列に代入 Cells(i, 2) = myStr(0) '@マーク後ろのドメイン情報をC列に代入 Cells(i, 3) = myStr(1) Next i End Sub 実行結果 ― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 参考記事 『VBA 繰り返し処理(For Next)』繰り返しの回数が決まっている場合、For Nextを使う場合が多いです。For文の使い方をサンプルを見ながら、身につけましょう。 繰り返し処理(For Nex…ameblo.jp 『VBA 文字列を分割する(Split関数)』 実務では、CSVファイルのように、「,」など特定の符号や文字で、文字列を分割したりすることがよくあります。Split関数は、「,」(カンマ)やスペース等で区…ameblo.jp
『VBA 繰り返し処理(For Next)』繰り返しの回数が決まっている場合、For Nextを使う場合が多いです。For文の使い方をサンプルを見ながら、身につけましょう。 繰り返し処理(For Nex…ameblo.jp
『VBA 文字列を分割する(Split関数)』 実務では、CSVファイルのように、「,」など特定の符号や文字で、文字列を分割したりすることがよくあります。Split関数は、「,」(カンマ)やスペース等で区…ameblo.jp