Excel 如何修改查找/替换VBA代码，以便根据行号为每行分配不同的参数？

我试图实现一个代码，该代码搜索行中的值，并用另一列中声明的同一行中的值替换声明的值

到目前为止，我被困在这个代码。它从整个列中搜索声明的“Findtext”，并用声明列中的第一个值替换它。当循环移动到下一行时，“Findtext”值已被替换，因此不再指定我希望从第2行获得的值

Dim Findtext As String
Dim Replacetext As String
Dim x As Integer

Application.ScreenUpdating = False
Numrows = Sheet1.Range("A1", Range("A1").End(xlDown)).Rows.Count

For x = 1 To Numrows

    Findtext = "Sheet2!$A$1"
    Replacetext = Cells(x, 2)

    Cells.replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

Next x

最终目标是让代码从第一行搜索“Findtext”，将其替换为另一列第一行的“Replacetext”，然后移动到下一行，并重复该操作，直到所有行都被查看并替换为另一列的相应值

---

该应用程序在银行中（在场景分析的每个期间，用动态/时间点变量替换出现在许多列/公式中的静态变量）。

代替

单元格。用
行（x）替换
尝试。用
行（x）替换
代替
单元格。用
行（x）替换
尝试。替换