我计算出了一个总和，其中总计数减去一个计算空格的函数，其中包括计算空字符串，我得到了答案。

统计单列范围内的非空

我知道了

Sub CountNonBlanksInSingleColumnRange()

    Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
    Dim rg As Range: Set rg = ws.Range("AC5:AC98")
    
    Dim nbCount As Long: nbCount = rg.Rows.Count - Application.CountBlank(rg)
    
    MsgBox nbCount & " cells are not blank.", vbInformation

End Sub

Excel

=ROWS(AC5:AC98)-COUNTBLANK(AC5:AC98)

在Excel 'jargon'中，对非空白且不包含 Nothing 的单元格进行计数。

您的代码正在查找不包含两个引号（“”）的单元格。
对于查找非空单元格，文字是“<>"。就您而言

intCount = WorksheetFunction.CountIf(Range("AC5:AC98"), "<>")

如果需要空白单元格

intCount = WorksheetFunction.CountBlank(Range("AC5:AC98"))

如果需要非空白单元格

intCount = Range("AC5:AC98").Count - WorksheetFunction.CountBlank(Range("AC5:AC98"))