質問です

Sub main()
Dim p As String
'対象フォルダを指定してください。
'このフォルダに この実行用のブックは 入れないでください。

p = "C:\test\"

'処理対象となる拡張子を指定して 呼び出します。
Call jikkou(p, "csv")

End Sub


Sub jikkou(p As String, s As String)

Dim bk As Workbook
Application.DisplayAlerts = False
e = 1
'チェックしたいドメイン
chk1 = "@docomo.ne.jp"
chk2 = "@ezweb.ne.jp"

    
f = Dir(p & "*." & s, vbNormal)

Do While f <> ""
    Set w = Workbooks.Open(Filename:=p & f, UpdateLinks:=False, ReadOnly:=False)
    '処理対象は １番目のシートのみ。
    
    With w.Sheets(1)
        
        kg = 1          '処理終了行
        
        If .Range("A2") <> "" Then
            kg = .Range("A1").End(xlDown).Row
        End If
 
        For b = 1 To kg
            If Right(.Cells(b, "A"), Len(chk1)) = chk1 Then
                Cells(e, "A") = .Cells(b, "A")
                e = e + 1
            End If
            
            If Right(.Cells(b, "A"), Len(chk2)) = chk2 Then
                Cells(e, "A") = .Cells(b, "A")
                e = e + 1
            End If
        Next b
    End With
         
    w.Save
    w.Close
    f = Dir
Loop

Application.DisplayAlerts = True

End Sub