咨询VBA中跨H、R列使用CountIf统计指定值的正确方法

你的问题出在CountIf函数对非连续区域的处理上——当你传入像Range("H:H, R:R")这样的多区域范围时，它只会计算第一个区域（H列）的结果，完全忽略后面的R列，这就是你代码得不到正确结果的原因。

这里给你两种可靠的实现方式，根据你的具体需求选择：

1. 统计H列和R列中值为"1"的单元格总数（每个符合条件的单元格都计数，包括同一行两列都为1的情况） #

这应该是你最初想要的效果，代码逻辑很直接：分别统计两列的符合条件数量，再相加：

Sub CountTargetCells()
    Dim delayedWs As Worksheet
    Dim hColCount As Long
    Dim rColCount As Long
    Dim total As Long
    
    ' 绑定目标工作表，避免后续引用出错
    Set delayedWs = ThisWorkbook.Worksheets("Delayed Students")
    
    ' 分别统计H列和R列中值为"1"的单元格数量
    hColCount = Application.WorksheetFunction.CountIf(delayedWs.Columns("H"), "1")
    rColCount = Application.WorksheetFunction.CountIf(delayedWs.Columns("R"), "1")
    
    ' 计算总数
    total = hColCount + rColCount
    
    ' 输出结果，这里用MsgBox展示，你也可以写入单元格或者其他地方
    MsgBox "H列和R列中值为""1""的单元格总数：" & total, vbInformation
End Sub

2. 统计至少有一列（H或R）值为"1"的行数（每行只算一次，即使两列都为1也只计1行） #

如果你的需求是统计符合条件的学生行数（而不是单元格数），可以用SumProduct来实现：

Sub CountTargetRows()
    Dim delayedWs As Worksheet
    Dim rowTotal As Long
    
    Set delayedWs = ThisWorkbook.Worksheets("Delayed Students")
    
    ' 用SumProduct计算满足条件的行数
    rowTotal = Application.WorksheetFunction.SumProduct( _
        --((delayedWs.Range("H:H") = "1") + (delayedWs.Range("R:R") = "1") > 0) _
    )
    
    MsgBox "H列或R列值为""1""的学生行数：" & rowTotal, vbInformation
End Sub

补充说明 #

• 注意代码中用"1"而不是1，因为你提到单元格值是文本型的"1"；如果单元格存储的是数值型的1，可以去掉引号。
• 提前绑定工作表对象Set delayedWs = ...是个好习惯，能避免因为当前激活工作表变化而出错。

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