没有符合条件时Excel自动过滤

Question

在Excel VBA中，我希望在不满足过滤条件时将计数显示为零，否则我希望它显示已过滤行的确切数量。但是，当没有结果满足标准时，即使1个结果满足标准，计数器也会显示1。

On Error Resume Next
If .Range("D3", Range("D" & Rows.count).End(xlUp)).Offset(1, 0).SpecialCells(xlCellTypeVisible).Value = "" Then
MsgBox "vs4 is zero"
V_S4 = 0
ThisWorkbook.Sheets(3).Range("E5").Value = V_S4
Else
V_S4 = .Range("D3", Range("D" & Rows.count).End(xlUp)).SpecialCells(xlCellTypeVisible).count
ThisWorkbook.Sheets(3).Range("E5").Value = V_S4
End If

Answer 1

NSLocalizedString("Back", nil)

我相信这应该有用，请告诉我结果，如果需要，我很想再给它一次。