按cost center、GL account筛选数据并计算金额总和及标记负数值

针对75000行、含200个成本中心的数据集，可通过以下两种方式完成需求：

方案一：Excel自带功能操作（无需代码） #

• 筛选并导出符合条件的行
  选中全量数据区域，点击「数据」选项卡→「高级筛选」，条件区域提前整理为E列（成本中心）、L列（总账科目）的目标筛选值（首行列名需和原表完全一致），勾选「将筛选结果复制到其他位置」，选择空白新工作表作为输出路径，确认后所有符合条件的完整行会自动导出到新表。
• 统计I列金额总和
  在新工作表I列的空白单元格输入公式 =SUBTOTAL(9,I:I)，即可得到筛选后数据的金额总和，不会统计隐藏行数据。
• 高亮标注负金额
  选中新工作表I列所有数据单元格，点击「开始」选项卡→「条件格式」→「突出显示单元格规则」→「小于」，输入值0，选择需要的高亮样式（默认浅红填充即可），确认后所有负金额会自动高亮。

方案二：VBA脚本实现（批量处理效率更高，适合重复操作） #

按Alt+F11打开VBA编辑器，右键点击当前工作簿→「插入」→「模块」，粘贴以下代码后按F5运行即可，7.5万行数据处理耗时不超过10秒：

Sub 按成本中心和总账科目汇总()
    Dim wsSrc As Worksheet, wsOut As Worksheet
    Dim lastRow As Long, i As Long, outRow As Long
    Dim dict As Object, groupKey As String
    Set dict = CreateObject("Scripting.Dictionary")
    Set wsSrc = ActiveSheet ' 改为你的数据源工作表名也可，比如Set wsSrc = Sheets("数据源")
    lastRow = wsSrc.Cells(Rows.Count, "E").End(xlUp).Row
    
    ' 新建输出工作表
    Set wsOut = ThisWorkbook.Worksheets.Add(After:=wsSrc)
    wsOut.Name = "分组汇总结果"
    ' 复制表头
    wsSrc.Rows(1).Copy wsOut.Rows(1)
    outRow = 2
    
    ' 遍历原表按成本中心+总账科目分组导出
    For i = 2 To lastRow
        groupKey = wsSrc.Cells(i, "E").Value & "|" & wsSrc.Cells(i, "L").Value
        ' 导出整行数据
        wsSrc.Rows(i).Copy wsOut.Rows(outRow)
        ' 累加对应分组的I列金额
        dict(groupKey) = dict(groupKey) + wsSrc.Cells(i, "I").Value
        outRow = outRow + 1
    Next i
    
    ' 高亮I列负金额
    With wsOut.Range("I2:I" & outRow - 1).FormatConditions.Add(xlCellValue, xlLess, 0)
        .Interior.Color = RGB(255, 199, 206)
        .Font.Color = RGB(156, 0, 6)
    End With
    
    ' 可选：在M列输出对应分组的总金额
    wsOut.Range("M1") = "分组总金额"
    For i = 2 To outRow - 1
        groupKey = wsOut.Cells(i, "E").Value & "|" & wsOut.Cells(i, "L").Value
        wsOut.Cells(i, "M").Value = dict(groupKey)
    Next i
    
    MsgBox "处理完成，共导出" & outRow - 2 & "行数据"
End Sub

• 注意事项：操作前请先备份原数据集，避免误操作导致数据丢失。

内容的提问来源于stack exchange，提问作者Ajith S Raju