循环中IF条件的Sum函数语法问题求助

嘿，别担心这个问题，一点都不浅显——很多刚接触VBA的朋友都会在工作表函数调用上踩这个坑！咱们来一步步把它搞定。

问题出在哪？ #

你原来的代码里，Or Sum(Rng2.EntireRow) = Rng2.Value这部分的核心问题是：VBA里不能直接像Excel工作表那样写Sum()，必须明确调用WorksheetFunction.Sum（或者Application.Sum）来使用求和函数。另外还有个潜在的逻辑细节：Rng2.EntireRow会包含Rng2本身的单元格，求和时会把活动单元格的值也算进去，这可能和你实际想判断的逻辑不符（比如你是不是想让整行其他单元格的和等于Rng2的值？）。

两种修正方案 #

根据你的实际需求，分两种情况处理：

情况1：确实要判断整行所有单元格的和等于Rng2的值

直接把Sum()替换为WorksheetFunction.Sum()即可：

' 修正后的IF条件
If [你的原有条件] Or WorksheetFunction.Sum(Rng2.EntireRow) = Rng2.Value Then
    ' 你的THEN分支执行代码
End If

如果整行里可能存在错误值（比如#N/A、#DIV/0!），可以改用Application.Sum，它会忽略错误值返回有效求和结果：

Or Application.Sum(Rng2.EntireRow) = Rng2.Value

情况2：想判断整行除Rng2之外的单元格和等于Rng2的值

这是更常见的校验场景（比如行内其他数据的总和等于当前单元格的校验值），这时候需要排除Rng2本身的数值，有两种简洁写法：

' 写法1：整行和减去Rng2的值，再和Rng2比较
Or (WorksheetFunction.Sum(Rng2.EntireRow) - Rng2.Value) = Rng2.Value

' 写法2：等价于整行和等于Rng2的两倍，更简洁
Or WorksheetFunction.Sum(Rng2.EntireRow) = 2 * Rng2.Value

额外提醒 #

如果你的Rng2是多单元格区域（虽然你提到是活动单元格，应该是单个单元格），EntireRow会返回所有包含这些单元格的行，这时候要确保你的逻辑是符合预期的。

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