Excel VBA中SUMIF函数动态行公式写入问题求助

问题根源 #

原代码的核心错误在于：

• 用ActiveCell.Row获取行号作为SUMIF的条件，但实际需要匹配的是times区域里的时间值，行号和时间值完全不匹配，导致公式失效。
• 不必要的Select操作既降低代码效率，还可能因选中状态意外变化引发错误。

修复方案 #

1. 修正SUMIF公式写法 #

直接引用当前行的时间单元格（假设时间存储在A列对应行）作为SUMIF的条件，而非行号：

WS.[C14].Offset(i).Formula = "=SUMIF(times," & WS.[A14].Offset(i).Address(False, False) & ",proc)"

• Address(False, False)生成相对引用地址（如A14、A15），确保公式在后续行能自动对应到当前行的时间单元格；若需绝对引用，改为Address(True, True)即可。

2. 优化循环代码（去掉冗余Select） #

删除不必要的Select操作，直接操作单元格，提升稳定性和效率：

For Each cel In Rng.Cells
    ' 给A列赋值（原代码中Select后未赋值，推测此处应为cel的值）
    WS.[A14].Offset(i).Value = cel.Value
    ' 给B列赋值
    WS.[B14].Offset(i).Value = WC.[H1].Offset(j).Value
    ' 写入正确的SUMIF公式
    WS.[C14].Offset(i).Formula = "=SUMIF(times," & WS.[A14].Offset(i).Address(False, False) & ",proc)"
    
    i = i + 1
    j = j + 1
Next cel
' 建议移除On Error Resume Next，否则会掩盖潜在错误，不利于调试

关键注意事项 #

• 确保times和proc两个命名区域是行对应的：即times的第n行与proc的第n行属于同一组数据，这是SUMIF能正确求和的前提。
• 若时间值存在格式差异（如文本型时间vs日期型时间），需先统一格式，否则SUMIF无法匹配。

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