Question

我的第一条消息，请提前感谢您的帮助。

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

编辑以添加示例。

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

让我们假设它在表格中找到10个匹配，任何方式都可以获得10个匹配？

Answer 1

WorksheetFunction object可以使用原生工作表COUNTIF function。

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

返回结果数FIND方法（vba）

1 个答案: