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

Question

我正在尝试实现一个代码，该代码在该行中搜索一个值，并将该值替换为另一列中所述同一行的值。

到目前为止，我仍然停留在此代码上。它从整个列中搜索陈述的“ 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”，然后继续进行下一行并重复该操作，直到所有查看了所有行，并替换为另一列中的相应值。

该应用程序用于银行业务（用场景每个时间段的动态/时间点变量替换许多列/公式中出现的静态变量）。