基于日期数组与姓名数组的VBA COUNTIFS函数取值技术问询

我来帮你理清楚怎么把日期数组、姓名数组和COUNTIFS函数搭配起来，拿到你需要的统计数值～

一、先搞定日期数组（感谢Jeeped提供的高效代码） #

这段VBA代码会帮你生成2018年全年的日期数组，而且格式和工作表保持一致——毕竟COUNTIFS对格式匹配要求很高，格式不对就会统计出错：

Dim d As Long, dts As Variant
' 初始化数组大小，预留第一个位置为空（避免数组索引问题）
ReDim dts(DateSerial(2019, 1, 1) - DateSerial(2018, 1, 1) + 1)
dts(0) = vbNullString
' 循环生成2018年每一天的日期，格式和工作表统一为"m/d/yyyy"
For d = DateSerial(2018, 1, 1) To DateSerial(2018, 12, 31)
    dts(d - DateSerial(2018, 1, 1) + 1) = Format(d, "m/d/yyyy") '<~~ 必须和工作表日期格式匹配
Next d

简单拆解下：

• 数组dts里会包含2018年1月1日到12月31日的所有日期，格式和工作表完全对齐
• 预留dts(0)为空是为了避免数组索引从1开始导致的错位问题

二、结合姓名数组+COUNTIFS完成统计 #

假设你的数据结构是：

• A列：姓名（比如"张三""李四"这类）
• B列：对应的日期
• 你还有一个姓名数组names（比如从工作表D列读取的要统计的姓名列表）

那你可以用下面的方式结合COUNTIFS统计：

Dim names As Variant, total As Double
' 示例：从D2:D10读取姓名列表生成数组
names = Range("D2:D10").Value
' 用CountIfs匹配姓名数组和日期数组，再求和得到总计数
total = Application.Sum(Application.CountIfs( _
    Range("A:A"), names, _
    Range("B:B"), dts _
))
' 输出结果，比如写到E1单元格
Range("E1").Value = total

几个关键注意点： #

• 格式匹配：日期数组的格式必须和工作表B列的日期格式完全一致，不然COUNTIFS会认不出日期
• 数组维度：如果姓名数组是从单元格区域读取的，它是二维数组，COUNTIFS可以直接识别，不用额外转一维
• 性能优化：如果数据量很大，建议不要整列引用（比如Range("A:A")），换成实际数据范围（比如Range("A2:A1000")），这样会快很多

内容的提问来源于stack exchange，提问作者Ben.Name