计算一个范围内字符串出现的次数

Question

我正在尝试验证用户是否正确过滤了特定列。

我的想法是，我将获得（第1个）可见行总数和（第2个）具有字符串“ TKF *”的可见行总数。

如果1st = 2nd，则将执行代码，否则将显示一条通知，要求成员检查过滤器。

现在，我在计算仅在可见ROW中有多少个字符串为“ TKF *”的ROWS时遇到问题。我尝试了CountIf，但是它仍然对包含字符串的未过滤行进行计数。 以下是我当前拥有的代码：

Dim rng As Range
Dim VRows As Integer
Set rng = ActiveSheet.AutoFilter.Range
VRows = rng.Columns(1).SpecialCells(xlCellTypeVisible).count - 1 'count of total visible rows

Dim TKFcount As Integer
TKFcount = Application.CountIf(Range("C1:C100"), "TKF*")

If VRows = TKFcount Then
'some code here
Else
'notify user to check filter
End If

我试图在网上搜索一些解决方案，但我只能找到CountIf不排除未过滤的行。欣赏有人能启发我并提出其他建议吗？