先给你捋捋原代码的核心问题：你用了两个嵌套循环分别遍历B列和C列的所有单元格，这会让每个B列值和所有C列值求和，完全不是同一行的B+C，逻辑直接跑偏了。另外你也没处理汇总表的行写入逻辑，下面给你修正后的完整代码，还有详细解释。

修正后的完整代码 #

Private Sub CommandButton1_Click()
    Dim chase_list As Worksheet
    Dim summary_list As Worksheet
    Dim last_row As Long
    Dim summary_row As Long
    Dim i As Long
    Dim total_amount As Double
    
    ' 初始化工作表对象
    Set chase_list = ThisWorkbook.Sheets("Chase_list")
    Set summary_list = ThisWorkbook.Sheets("Summary_list")
    
    ' 清除汇总表原有数据（保留表头，支持每次刷新）
    summary_list.Range("A2:C" & summary_list.Cells(summary_list.Rows.Count, "A").End(xlUp).Row).ClearContents
    
    ' 设置汇总表表头（如果表头还未创建）
    With summary_list
        .Range("A1").Value = "名称"
        .Range("B1").Value = "总计"
        .Range("C1").Value = "备注"
        ' 给表头加粗，方便区分
        .Range("A1:C1").Font.Bold = True
    End With
    
    ' 获取数据工作表的最后一行（避免遍历空行）
    last_row = chase_list.Cells(chase_list.Rows.Count, "A").End(xlUp).Row
    ' 汇总表从第2行开始写入数据（第1行是表头）
    summary_row = 2
    
    ' 按行遍历数据工作表
    For i = 2 To last_row ' 假设第1行是表头，从第2行读数据
        ' 计算当前行应付款+待处理款的总和
        total_amount = chase_list.Cells(i, "B").Value + chase_list.Cells(i, "C").Value
        
        ' 判断是否符合汇总条件
        If total_amount >= 20000 Then
            ' 写入汇总表对应数据
            summary_list.Cells(summary_row, "A").Value = chase_list.Cells(i, "A").Value
            summary_list.Cells(summary_row, "B").Value = total_amount
            summary_list.Cells(summary_row, "C").Value = chase_list.Cells(i, "D").Value
            
            ' 汇总表行号自增，准备写下一条记录
            summary_row = summary_row + 1
        End If
    Next i
    
    ' 自动调整汇总表列宽，让内容更整齐
    summary_list.Columns("A:C").AutoFit
    
    ' 给用户反馈汇总结果
    MsgBox "汇总完成！共找到 " & summary_row - 2 & " 条符合条件的记录。"
End Sub

关键改进点说明 #

• 修正遍历逻辑：放弃错误的嵌套列循环，改用按行遍历，确保只计算同一行的B+C总和，逻辑完全贴合需求。
• 表头与数据写入管理：用summary_row变量跟踪汇总表的写入位置，每写完一条记录就自增1，避免覆盖或漏写；同时初始化表头，保证汇总表结构清晰。
• 数据刷新支持：每次运行前清除汇总表的旧数据（保留表头），避免重复数据堆积，适合多次运行更新汇总。
• 边界处理：通过Cells(Rows.Count, "A").End(xlUp).Row获取数据的最后一行，不会遍历无效的空行，提升运行效率。
• 用户友好性：最后弹出消息框告知汇总结果数量，自动调整列宽让表格更美观。

注意事项 #

• 确保你的数据工作表确实叫Chase_list，汇总表叫Summary_list，如果工作表名称不同，要修改代码里的对应名称。
• 如果你的数据第1行不是表头，要把For i = 2 To last_row改成For i = 1 To last_row，同时去掉表头初始化的代码块。

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