部分条件满足时replace文本

嘿，我有一个Excel表格，运行一些VBA来find一个包含特定文本的单元格，然后用新的文本replace。 我想要发生的是任何时候在程序看到的单词“在”它将取代单元格的值与“计划工作”的问题，我虽然是原始单元格的值不仅是“在”它还包含一个时间那是dynamic的。 有没有办法，我仍然可以取代包含“如果”和不同时间的细胞？ 我有下面的代码，但我不知道如何将其更改为包含“In”以及更改时间的单元格。

谢谢！

我想要的例子：

当前的单元格：“In – 12:30”，“In – 11:45”等。未来单元格：“计划工作”

ws.Columns("D:D").Select Selection.replace What:="In", Replacement:="Scheduled to work", LookAt:=xlPart _ , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=Falseenter code here 

Answer 1

我想你所要求的是replacestring“定时工作”的字和时间？

如果是这样的话，尝试添加一个通配符到你的子，就像这样：

 ws.Columns("D:D").Select Selection.replace What:="In*", Replacement:="Scheduled to work", LookAt:=xlPart _ , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False