大量メールアドレスからユーザ名とドメインを自動取得

 

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基礎入門もくじ へ戻る 

 

参考記事