Excel 查找并替换公式中的文本

我很难理解如何制作宏

我试图向下搜索一列，在每个单元格中检查文本

“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（）”

---

提前谢谢。

尝试更改此行

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

到

---

我知道我很接近！谢谢你的快速回复。我会尽快接受。

Replacetext = "TODAY()+Sheet1!B2"