寻找替代使用单元格上的“查找”

我有一个代码，目前看着一个单元格，find一个特定的短语，并增加一个variables1。

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