查找並替換公式中的文本

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"