小编LCG*_*LCG的帖子

我正在尝试使用VBA进行查找/替换.目标是迭代"Data_Pairs"表,其中包含要查找/替换的所有对,以及仅在列A中查找/替换这些对,并且仅在工作簿中指定的工作表范围内(不包括"Data_Pairs") ").

由于某种原因,每个匹配的值都会被替换,无论它在哪个列中.值也会在索引超出定义范围的工作表中被替换.

任何帮助将不胜感激.

我正在使用以下代码:

Sub Replace_Names()

Dim row As Integer
Dim row2 As Integer
Dim sheet As Integer
Dim findThisValue As String
Dim replaceWithThisValue As String

For row = 1 To 10
  Worksheets("Data_Pairs").Activate
  findThisValue = Cells(row, "A").Value
  replaceWithThisValue = Cells(row, "B").Value
  For sheet = 2 To 10
    Worksheets(sheet).Columns("A").Replace What:= findThisValue, Replacement:=replaceWithThisValue     
  Next sheet
Next row
End Sub

给出问题的具体示例:如果Data_Pairs A1 = A且Data_Pairs B1 = 1,则整个工作簿中的每个值1都将替换为A.