VBA宏SumIf报错时保留原有值或不执行操作的实现方法

这个问题很典型——On Error Resume Next的误用会导致你遇到的「最后一个有效值重复填充」问题，因为它只是跳过错误，但不会重置之前的变量值。我们先分析原因，再给出两种可靠的解决方案：

为什么On Error Resume Next会导致重复值？ #

当SumIf因为找不到列标题触发错误时，On Error Resume Next会让代码继续执行，但result变量仍然保留着上一次成功计算的结果。于是后续的单元格会被错误地赋值为这个旧值，直到下一次成功计算为止。

解决方案1：提前验证列标题是否存在（推荐） #

与其等错误发生再处理，不如先主动检查目标列标题是否存在于搜索范围中。如果存在才执行SumIf，不存在则跳过，保留单元格原有值。

示例代码：

Sub SumWithValidation()
    Dim result As Variant
    Dim n As Long
    Dim header As String
    Dim lookupHeaderRange As Range ' 搜索范围的标题行
    Dim sumDataRange As Range ' 要求和的数据区域
    
    ' 请根据你的实际表格调整以下范围
    Set lookupHeaderRange = Sheets("数据源").Range("A1:Z1") ' 搜索范围的标题行
    Set sumDataRange = Sheets("数据源").Range("A2:Z100") ' 搜索范围的数据行
    
    ' 遍历D到BC列（D是第4列，BC是第55列）
    For n = 4 To 55
        header = Cells(1, n).Value ' 获取当前列的标题
        
        ' 检查标题是否在搜索范围中存在
        If Not IsError(Application.Match(header, lookupHeaderRange, 0)) Then
            ' 标题存在，执行SumIf计算
            result = Application.SumIf(lookupHeaderRange, header, sumDataRange.Columns(Application.Match(header, lookupHeaderRange, 0)))
            Cells(2, n).Value = result ' 将结果写入目标单元格（可调整行号）
        Else
            ' 标题不存在，不执行任何操作，保留单元格原有值
            ' 可选：如果需要标记不存在的列，可以取消下面的注释
            ' Cells(2, n).Value = "未找到匹配列"
        End If
    Next n
End Sub

优势： #

• 避免依赖错误处理逻辑，代码更清晰
• 能精准区分「标题不存在」的情况，不会忽略其他潜在错误

解决方案2：针对性错误处理 #

如果你更倾向于用错误捕获的方式，可以在SumIf执行前后精准控制错误处理，确保错误发生时不覆盖原有单元格值。

示例代码：

Sub SumWithErrorHandling()
    Dim result As Variant
    Dim n As Long
    Dim header As String
    Dim lookupRange As Range
    Dim sumRange As Range
    
    ' 调整为你的实际范围
    Set lookupRange = Sheets("数据源").Range("A1:Z1")
    Set sumRange = Sheets("数据源").Range("A2:Z100")
    
    For n = 4 To 55
        header = Cells(1, n).Value
        Err.Clear ' 清除上一次循环的错误状态
        
        ' 仅对SumIf行启用错误跳过
        On Error Resume Next
        result = Application.SumIf(lookupRange, header, sumRange)
        On Error GoTo 0 ' 恢复默认错误处理
        
        ' 如果没有错误，才赋值
        If Err.Number = 0 Then
            Cells(2, n).Value = result
        Else
            ' 发生错误（如标题不存在），不执行任何操作
        End If
    Next n
End Sub

优势： #

• 可以捕获SumIf执行过程中的所有错误（不仅仅是标题不存在）
• 不会让错误状态影响后续循环

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