Excel 查找和替换，其中不存在所有条目

我需要将

Array1=Array（“11”、“15”、“13”）中的条目替换为
Array2=Array（“a”、“b”、“ZYZ”）
。我的目标工作簿是csv文件。由于某些原因，下面的代码不起作用

Array1 = Array("11", "15", "13")
Array2 = Array("a", "b", "ZYZ")

For i = 1 To 3
    With TargetWB
        .Cells.Replace What:=Array1(i), Replacement:=Array2(i), _
        LookAt:=xlWhole, SearchOrder:=xlByColumns
    End With
Next i

我的数据是一个如下所示的CSV文件。请注意，此文件会更改，因此有时会包含'15'条目


由于某些原因，下面的代码不起作用

Array1 = Array("11", "15", "13")
Array2 = Array("a", "b", "ZYZ")

For i = 1 To 3
    With TargetWB
        .Cells.Replace What:=Array1(i), Replacement:=Array2(i), _
        LookAt:=xlWhole, SearchOrder:=xlByColumns
    End With
Next i

由于您没有提到问题所在，我只能猜测您面临的问题，但无论如何，进行这些更改可以使代码对我起作用

1。不知道如何定义数组，但将i=1的
更改为3的
更改为i=0到2的

2.将
targetWeb
更改为工作表对象（如果该对象是工作簿）。类似于
targetWeb.Sheets（1）

测试代码

这就是你想要的吗

Option Explicit

Sub Sample()
    Dim Array1 As Variant
    Dim Array2 As Variant
    
    Array1 = Array("11", "15", "13")
    Array2 = Array("a", "b", "ZYZ")
    
    Dim TargetWB As Workbook
    Dim TargetWs As Worksheet
    
    '~~> Change this to the relevant csv
    Set TargetWB = ThisWorkbook
    Set TargetWs = TargetWB.Sheets(1)
    
    Dim i As Long
    
    For i = 0 To 2
        TargetWs.Cells.Replace What:=Array1(i), Replacement:=Array2(i), _
        LookAt:=xlWhole, SearchOrder:=xlByColumns
    Next i
End Sub

在行动中

下面的代码不起作用，没有帮助。回答错了吗？错误消息？Excel崩溃？计算机爆炸？等