在公式中查找并replace文本

我无法理解如何制作macros。

我想search一个列，并在每个单元格中检查文本"TODAY()" ，并将其replace为"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中的天数在将来的某个时间在单元格中显示date。 VBA必须能够search单元格中的公式，因为公式中不仅仅是"TODAY()" 。

提前致谢。

Answer 1

试着改变这一行

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

至

 Replacetext = "TODAY()+Sheet1!B2"