检查单元格是否包含特定的文本

我必须按照优先顺序将工作从一个电子表格放到另一个电子表格上。 如果一项工作被列为已完成，那么我不会将这项工作转移。 以下是我的优先级为“优先级1”的代码。 表示它是完成状态的单元格有时在它之前或之后有一个date，这就是为什么我把“*”字符。

Do Until IsEmpty(ActiveCell) Or count > 14 If ActiveCell.Value = "Priority I" Then ActiveCell.Offset(0, 6).Select If ActiveCell.value = "completed" like "*completed*" Then ActiveCell.Offset(1, -6).Select Else ActiveCell.Offset(0, -1).Select word0 = ActiveCell.Value ActiveWindow.ActivateNext ActiveCell = word0 ActiveWindow.ActivateNext ActiveCell.Offset(0, -9).Select word = Left(ActiveCell.Value, 6) ThisWorkbook.Activate ActiveCell.Offset(0, 1).Select ActiveCell = word ActiveWindow.ActivateNext ActiveCell.Offset(0, 1).Select word1 = ActiveCell.Value ThisWorkbook.Activate ActiveCell.Offset(0, 1).Select ActiveCell.Value = word1 ActiveWindow.ActivateNext ActiveCell.Offset(0, 1).Select word2 = ActiveCell.Value ThisWorkbook.Activate ActiveCell.Offset(0, 1).Select ActiveCell.Value = word2 ActiveWindow.ActivateNext ActiveCell.Offset(0, 1).Select word3 = ActiveCell.Value ThisWorkbook.Activate ActiveCell.Offset(0, 1).Select ActiveCell.Value = word3 ActiveCell.Offset(1, -4).Select ActiveWindow.ActivateNext ActiveCell.Offset(1, 1).Select count = count + 1 End If Else ActiveCell.Offset(1, 0).Select End If Loop 

我已经确认，它正在检查正确的列，它只是没有抓住完成的话。 所以这个问题在第四行。

Answer 1

更改

  If ActiveCell.value = "completed" like "*completed*" Then 

至

 If Instr(1, UCase(ActiveCell.Value), "COMPLETED") > 0 Then 

要么

 If UCase(ActiveCell.Value) like "*COMPLETED*" Then