Question

这是一段更大的代码片段 - 我希望它能够搜索我的电子表格的行，并且仅当列R和T中的单元格以ECH开始时才显示消息框。目前代码工作得很好，但只有在单元格值为“ECH”时才会显示。

我在论坛上发现了几个类似的问题，但不知道如何直接将它们应用到我的情况中。如果有人可以建议如何指定我只想要以“ECH”开头并且很棒的单元格。谢谢！

Dim i As Long
i = 2
Do While Cells(i, "F").Value <> ""
  If Cells(i, "R").Value = "ECH" And Cells(i, "T").Value = "ECH" Then
    MsgBox ("YES")
    Else
    MsgBox ("NO")
  End If
  i = i + 1
Loop

Answer 1

只需更改此行：

If Cells(i, "R").Value = "ECH" And Cells(i, "T").Value = "ECH" Then

像那样：

If Cells(i, "R").Value Like "ECH*" And Cells(i, "T").Value Like "ECH*" Then

使用关键字Like时，您可以在比较中使用通配符。

将字符串与=进行比较时，它们必须完全相同才能返回True，并且不允许使用通配符。在这种情况下，*被视为普通字符。

仅当单元格以ECH开头时才显示消息框

1 个答案: