如何在VBA中使用CountIf仅匹配表格日期列的年月进行计数？

原代码存在的问题 #

• 函数声明语法错误：正确格式应为 Public Function 函数名(参数)，原代码写成 Public function(numcount(... 不符合VBA语法，且参数名 Tal 应为 tbl（和代码中引用的变量一致）
• 循环变量大小写混用：代码中同时出现 i 和 I，虽VBA不区分大小写，但易引发混淆
• 中文引号：“New” 是中文全角引号，会导致编译错误，需改为英文半角引号 "New"
• Countifs用法完全错误：WorksheetFunction.CountIfs 要求参数为「条件区域+对应条件」的成对组合，不能直接写 tbl.columns(1) = month(Rdate) 这类表达式
• 语法冗余/错误：内层If语句存在多余符号、变量名错误，且嵌套Countifs完全没必要——既然已经在循环遍历每行，直接判断当前行的条件即可

修正方案1：循环遍历行判断（适合小数据量） #

Public Function NumCount(ByRef RDate As Date, tbl As Range) As Long
    Dim counter As Long
    Dim i As Long
    Dim cellDate As Variant
    
    counter = 0
    ' 遍历区域的每一行
    For i = 1 To tbl.Rows.Count
        cellDate = tbl.Cells(i, 1).Value
        ' 先判断单元格是否为日期，避免报错
        If IsDate(cellDate) Then
            ' 匹配年月、列3为"New"、列11值>0
            If Month(cellDate) = Month(RDate) And _
               Year(cellDate) = Year(RDate) And _
               tbl.Cells(i, 3).Value = "New" And _
               tbl.Cells(i, 11).Value > 0 Then
                counter = counter + 1
            End If
        End If
    Next i
    
    NumCount = counter
End Function

修正方案2：用Countifs直接统计（适合大数据量，效率更高） #

不需要循环，直接利用Excel的日期函数构造条件，一次性统计符合要求的记录数：

Public Function NumCount(ByRef RDate As Date, tbl As Range) As Long
    Dim targetYear As Integer
    Dim targetMonth As Integer
    Dim dateCol As Range
    Dim statusCol As Range
    Dim valueCol As Range
    
    targetYear = Year(RDate)
    targetMonth = Month(RDate)
    ' 定义各条件对应的区域
    Set dateCol = tbl.Columns(1)
    Set statusCol = tbl.Columns(3)
    Set valueCol = tbl.Columns(11)
    
    ' 用Countifs组合条件：年份匹配、月份匹配、状态为New、列11值>0
    NumCount = WorksheetFunction.CountIfs( _
        dateCol, ">=" & DateSerial(targetYear, targetMonth, 1), _
        dateCol, "<" & DateSerial(targetYear, targetMonth + 1, 1), _
        statusCol, "New", _
        valueCol, ">0" _
    )
End Function

说明 #

• 方案2的效率远高于循环，因为Countifs是Excel内置的批量统计函数，避免了VBA逐行循环的开销
• 若列1存在非日期值，方案1通过IsDate判断避免报错，方案2会自动忽略非日期单元格（因为日期范围条件不匹配）

内容的提问来源于stack exchange，提问作者Nicholas Early Gerjol