更改單元格的值，如果它包含字符串的一部分

Question

我想通過列「C」中的所有單元格循環並將值更改爲Today（） - 4如果單元格包含「Mon」，因爲報表運行在星期五。我已將Today（）放入單元格「K5」中，因爲不知道如何將其合併到我的

For Each cell In Sheets("EMAIL DATA").Range("C:C") 
    If cell.Value = "*Mon*" Then 
    Set cell.Value = ("K5" - 4) 
    End If 
Next 

感謝您的幫助。

Answer 1

嘗試下面的代碼，使用DateAdd功能，從。減去今天的日期（Date）4天。

注意：沒有必要在Cell「K5」中保存今天的日期，只需使用Date函數即可。

For Each cell In Sheets("EMAIL DATA").Range("C:C") 
    If cell.Value Like "*Mon*" Then 
     cell.Value = DateAdd("d", Date, -4) 
    End If 
Next 

Answer 2

引用您需要使用的Cell K5：Range("K5")。或者Excel會將「K5」看作是一個字符串，併發出錯誤。

For Each cell In Sheets("EMAIL DATA").Range("C:C") 
    If cell.Value Like "*Mon*" Then 
    Set cell.Value = (Sheets("EMAIL DATA").Range("K5") - 4) 
    End If 
Next