用Replace函数遍历For循环

我有一个数据集，看起来像这样：

销

1. 2Ard -7-
2. 2Ard-99
3. 1RPI-35
4. 1RPI-34
5. 1RPI-39
6. 1RPI-38

我试图通过这个循环，并用不同的名称replace每个单元格的部分。 这是我到目前为止的代码：

Dim CompPin() As String Dim AutoPin() As String Dim Item As Variant CompPin() = Split("1ARD 2ARD 1RPI 2RPI") AutoPin() = Split("PB1A PC1A PF1A PF2B") For Each Item In CompPin Worksheets("Demo").Columns("D").Replace What:=CompPin(Item), Replacement:=AutoPin(Item), LookAt:=xlPart Next 

当我运行这个代码，我得到一个types不匹配。 任何见解都会有所帮助。

Answer 1

尝试这个

 CompPin() = Split("1ARD 2ARD 1RPI 2RPI") AutoPin() = Split("PB1A PC1A PF1A PF2B") For n = 0 To UBound(CompPin) Worksheets("Demo").Columns("D").Replace What:=CompPin(n), Replacement:=AutoPin(n), LookAt:=xlPart Next 

Answer 2

另一种select可能是“双重分裂”：

 Sub main() Dim CompAutoPin() As String Dim Item As Variant CompAutoPin() = Split("1ARD-PB1A 2ARD-PC1A 1RPI-PF1A 2RPI-PF2B") For Each Item In CompAutoPin Worksheets("Demo").Columns("D").Replace What:=Split(Item, "-")(0), Replacement:=Split(Item, "-")(1), LookAt:=xlPart Next Item End Sub