返回结果数FIND方法（vba）

我在这里的第一个消息，所以提前感谢您的帮助。

任何想法如何获得在VBA中应用FIND函数后的结果数量？ 我有一个在电子表格中循环的代码（它查找整个单词： LookAt:=xlWhole ），它返回并返回X个结果。 我需要这个数字，因为我随后需要把值与查找方法返回的结果数量一样多。

编辑添加示例。

 .find(what:="Stackoverflow is great", LookIn:=xlValues, LookAt:=xlWhole) 

让我们假装在表单中find10个匹配，以任何方式可以得到10？

Answer 1

WorksheetFunction对象可以使用本机工作表COUNTIF函数 。

 dim x as long, str as string str = "Stackoverflow is great" with worksheets("sheet1") x = worksheetfunction.countif(.usedrange.cells, str) end with debug.print x