excel - 查找并替换公式中的文本

Question

我无法理解如何制作宏。

我尝试向下搜索一列，并在每个单元格中检查文本“TODAY()”，并将其替换为“TODAY() + B2” 其中 B2 是一些天数。

我一直在寻找，我想我已经很接近了，但我仍然遇到了麻烦。

Sub findrep()
    Dim Findtext As String
    Dim Replacetext As String
    Findtext = "TODAY()"
    Replacetext = SUM(TODAY(),"Sheets("Sheet1").Range("B2").Value")
    Columns("A").Replace what:=Findtext, replacement:=Replacetext, lookat:=xlPart, MatchCase:=False

End Sub

我想在未来某个时间在单元格中显示日期，具体取决于单元格 B2 中的天数。 VBA 必须能够搜索单元格中的公式，因为公式中不仅仅有 “TODAY()”。

提前致谢。

Answer 1

尝试更改此行

Replacetext = SUM(TODAY(),"Sheets("Sheet1").Range("B2").Value")

至

Replacetext = "TODAY()+Sheet1!B2"