查找并替换公式中的文本

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"