excel - 计算范围内的匹配子串

Question

我正在编写一个工作簿，我需要在其中计算“St/”子字符串在范围(Q 列)中出现的次数。注意:我对所有出现感兴趣，而不仅仅是存在子字符串的单元格的数量。
这是我正在尝试使用的代码(基于 Santhosh Divakar - https://stackoverflow.com/a/23357807/12536295 的评论)，但在运行它时收到运行时错误 (13)。我错过了什么/做错了什么？

Dim lastrow, q as Integer
lastrow = Range("A1").End(xlToRight).End(xlDown).Row
With Application
q = .SumProduct((Len(Range("Q1:Q" & lastrow)) - Len(.Substitute(Range("Q1:Q" & lastrow), "St/", ""))) / Len("St/"))
End With

Answer 1

看看下面的代码是否对您有帮助:

Public Sub TestCount()
    lastrow = Range("Q" & Rows.Count).End(xlUp).Row
    strformula = "=SUMPRODUCT(LEN(Q1:Q" & lastrow & ")-LEN(SUBSTITUTE(UPPER(Q1:Q" & lastrow & "),""/ST"","""")))/LEN(""/St"")"
    MsgBox Evaluate(strformula)
End Sub