如何高效汇总含重复行列的Excel工作表并对重复项求和？

针对你600+行700+列的大表格，以下几种方法比当前的VBA思路更高效：

方法1：用数据透视表（零代码，最快实现） #

这是Excel内置的最优方案，专门适配这类行列分组求和场景：

• 选中整个数据区域（包含表头）
• 点击「插入」选项卡 → 「数据透视表」，选择结果放置位置（新工作表或现有工作表均可）
• 在数据透视表字段面板：
  • 把零件列拖到「行」区域
  • 把日期列拖到「列」区域
  • 把所有需要求和的位置数据列拖到「值」区域，右键值字段 → 「值字段设置」→ 选择「求和」
• 生成的透视表就是无重复行列、对应数据求和后的结果，Excel对透视表有底层性能优化，大表格也能快速处理。

方法2：优化VBA代码（用数组+字典，大幅提升速度） #

原代码因逐单元格读写、删除行导致速度极慢，改成内存中数组+字典操作，彻底避免频繁和工作表交互：

Sub SumDuplicateRowsCols()
    Dim srcSht As Worksheet, destSht As Worksheet
    Dim dataArr As Variant, resultArr As Variant
    Dim dict As Object, key As String
    Dim i As Long, j As Long, rowCount As Long, colCount As Long
    Dim uniqueParts As Collection, uniqueDates As Collection
    
    Set srcSht = ActiveSheet
    Set destSht = ThisWorkbook.Sheets.Add(After:=srcSht)
    Set dict = CreateObject("Scripting.Dictionary")
    Set uniqueParts = New Collection
    Set uniqueDates = New Collection
    
    ' 读取所有数据到内存数组
    dataArr = srcSht.UsedRange.Value
    rowCount = UBound(dataArr, 1)
    colCount = UBound(dataArr, 2)
    
    ' 收集唯一零件/日期，用字典记录求和值
    On Error Resume Next
    For i = 2 To rowCount ' 跳过表头行
        For j = 2 To colCount ' 跳过零件列，从日期列开始
            key = dataArr(i, 1) & "|" & dataArr(1, j) ' 零件+日期作为唯一标识键
            ' 累加求和
            If dict.Exists(key) Then
                dict(key) = dict(key) + dataArr(i, j)
            Else
                dict(key) = dataArr(i, j)
                uniqueParts.Add dataArr(i, 1), Key:=CStr(dataArr(i, 1))
                uniqueDates.Add dataArr(1, j), Key:=CStr(dataArr(1, j))
            End If
        Next j
    Next i
    On Error GoTo 0
    
    ' 构建结果数组
    ReDim resultArr(1 To uniqueParts.Count + 1, 1 To uniqueDates.Count + 1)
    ' 写入表头
    resultArr(1, 1) = dataArr(1, 1)
    For j = 1 To uniqueDates.Count
        resultArr(1, j + 1) = uniqueDates(j)
    Next j
    ' 写入零件和求和数据
    For i = 1 To uniqueParts.Count
        resultArr(i + 1, 1) = uniqueParts(i)
        For j = 1 To uniqueDates.Count
            key = uniqueParts(i) & "|" & uniqueDates(j)
            resultArr(i + 1, j + 1) = IIf(dict.Exists(key), dict(key), 0)
        Next j
    Next i
    
    ' 一次性写入结果到目标表
    destSht.Range("A1").Resize(UBound(resultArr, 1), UBound(resultArr, 2)).Value = resultArr
    destSht.Name = "汇总结果"
End Sub

• 说明：代码先把所有数据读入内存数组，用字典快速记录每个「零件+日期」组合的总和，最后一次性把结果写回工作表，避免了逐单元格操作的性能损耗，处理大表格速度会提升几十倍。

方法3：用Power Query（适合重复自动化处理） #

Power Query是Excel的高级数据处理工具，处理大数据高效且可复用：

• 选中数据区域 → 「数据」选项卡 → 「从表格/区域」（提示表头时勾选「我的表格有标题」）
• 在Power Query编辑器中：
  • 选择所有数值列（位置数据列）→ 右键 → 「分组依据」
  • 分组设置：点击「高级」，添加两个分组依据：第一个选「零件」，第二个选「日期」（对应原表的表头日期）
  • 对每个数值列设置操作「求和」，点击确定
  • 点击「关闭并上载」，结果会加载到新工作表，就是你要的无重复行列求和表
• 后续数据更新时，只需右键结果表 → 「刷新」即可重新汇总，无需重复操作。

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