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

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