【エクセルマクロ】CSVの複数文字列を一括置換：3倍高速化する

Sub CSVファイルの指定内容を置換()

Dim MyPath As String
Dim A_List As Variant
Dim B_List As Variant
Dim i As Long

    A_List = Array("ぶっかけ", "ルー", "別盛り")
    B_List = Array("ブッカケ", "ルゥ", "別もり")

    'CSVファイルパス
    MyPath = "C:\Users\Admin\Documents\会員リスト.csv"

    'CSVファイルを開く
    Workbooks.Open (MyPath)

    '配列ループ
    For i = 0 To UBound(A_List)

        '置換
        Cells.Replace What:=A_List(i), Replacement:=B_List(i)

    Next i

    '保存処理など
'    ActiveWorkbook.Save

End Sub