寻找替代使用＆＃34; Find＆＃34;在一个细胞上

Question

我有一个代码，当前查看单元格，查找某些短语，并将变量增加1。

For x = 1 To 1000
    Set c = Range("A" & x).Find("certain phrase", LookIn:=xlValues)
    If Not c Is Nothing Then b = b + 1
Next

是否有其他替代VBA方法/属性来确定短语是否在Find之外的单元格中？

Answer 1

选项1：（区分大小写）

For x = 1 To 1000
    If Range("A" & x) Like "*certain phrase*" Then b = b + 1
Next

选项2：（区分大小写）

For x = 1 To 1000
    If InStr(1, Range("A" & x), "certain phrase") > 0 Then b = b + 1
Next

选项3：（不区分大小写）

For x = 1 To 1000
    If InStr(1, Range("A" & x), "certain phrase", vbTextCompare) > 0 Then b = b + 1
Next