Excel 寻找替代使用的方法；查找“；在牢房里

我有一个代码，它当前查看一个单元格，找到一个特定的短语，并将一个变量增加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方法/属性可用于确定单元格中是否有短语

选项1:（区分大小写）

选项2:（区分大小写）

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

---

如果InStr（1，范围（“A”和x），“特定短语”）>0，则b=b+1

或

如果范围（“A”和x）类似于“*特定短语*”，则b=b+1

。第一个是完美的。

查找

要快得多，因为它在每个单元格中循环

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

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

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