VBA宏Countifs语句编译通过但触发运行时错误438求助

运行时错误438（对象不支持该属性或方法）在使用WorksheetFunction.Countifs时很常见，通常和对象引用不明确或者参数格式不匹配有关。结合你的描述——统计另一工作表中K列等于"APPROVED"且M列日期在指定周内的行数，我来帮你拆解问题并给出修复方案：

常见原因与修复步骤 #

1. 确保工作表引用绝对明确 #

很多时候错误438是因为你没有给Range指定所属的工作表，导致VBA默认引用当前活动工作表（而不是你要统计的目标工作表）。比如直接写Range("K:K")会指向当前激活的表，而非数据所在的表。

修复方式：先定义并赋值工作表对象，所有Range都绑定到对应的工作表：

' 先声明并指定数据工作表和统计工作表
Dim wsData As Worksheet, wsChart As Worksheet
Set wsData = ThisWorkbook.Worksheets("你的数据工作表名称") ' 替换成实际表名
Set wsChart = ThisWorkbook.Worksheets("生成图表的工作表名称") ' 替换成实际表名

2. 修正日期范围的条件格式 #

你的需求是统计指定周内的日期，但只提到了S列的周结束日期——Countifs需要明确的起始日期和结束日期才能限定范围。另外，VBA中直接传递日期给Countifs可能会因为格式识别问题报错，建议把日期转成Excel日期序列号（用CLng()）。

修复后的Countifs语句：

For i = 1 To 8 ' 假设你循环的是1到8行
    Dim endWeekDate As Date, startWeekDate As Date
    Dim approvedCount As Long
    
    ' 获取当前行的周结束日期（确保S列是日期格式）
    endWeekDate = wsChart.Cells(i, "S").Value
    ' 计算周起始日期（这里假设周是周一到周日，若为周日到周六则调整为endWeekDate - 6）
    startWeekDate = endWeekDate - 6
    
    ' 正确调用Countifs，所有范围绑定到数据工作表，日期转成序列号
    approvedCount = WorksheetFunction.CountIfs( _
        wsData.Range("K:K"), "APPROVED", _
        wsData.Range("M:M"), ">=" & CLng(startWeekDate), _
        wsData.Range("M:M"), "<=" & CLng(endWeekDate) _
    )
    
    ' 将结果写入你需要的单元格，比如U列
    wsChart.Cells(i, "U").Value = approvedCount
Next i

3. 额外检查点 #

• 确认数据工作表的K列确实是文本格式，且存在"APPROVED"值；M列是日期格式，没有无效的日期值。
• 避免使用ActiveSheet或ThisWorkbook.ActiveSheet这类依赖当前状态的引用，始终用明确的工作表对象。

为什么之前的代码会报错？ #

最可能的原因是：

• 你的Countifs语句中没有指定数据工作表，导致VBA试图在当前活动工作表（生成图表的表）中查找K列和M列，而该表没有这些数据，触发了对象不支持的错误。
• 日期条件没有转成Excel能识别的序列号，导致Countifs无法正确解析日期范围。

内容的提问来源于stack exchange，提问作者Sam Basso