替换公式VBA的数字参考？

Question

For i = 1 To 5
    changeto = CStr(Sheet15.Cells(1, i).Formula)
    newindustry = getfirstword(Worksheets("Industry Insert Template").Range("C1"))
    'grab the index position of the comma and exclamation mark
    intchangeto = InStr(changeto, ",")
    finalchangeto = InStr(changeto, "!")
    'extract the worksheet substring
    finalindustry = Mid(changeto, intchangeto + 1, finalchangeto - intchangeto - 1)

    If finalindustry <> "'Multiples & EPS'" And finalindustry <> "Technicals" Then
        finalformula = Replace(changeto, finalindustry, newindustry)
        Cells(1, i).Formula = finalformula
    End If
Next

目前这是我调整工作表名称的宏 我想只调整数字参考。

例如：

=VLOOKUP($B1,Industrials!$CA$41:$GG$41,C$8)

我希望能够更改vlookup中的单元格41以反映正确的行。
我如何通过所有细胞并改变公式来反映这一点？

Answer 1

使用替换：

示例：

Cells (1, i).Formula = Replace(Cells (1, i).Formula, oldRow, NewRow)

如果i的值与行号相关，则可以使用它代替旧行等。