VBA分组求和后删除重复行及代码丢失数值问题求助

1. 分组求和后重复行删除方案 #

分组求和后的重复行一般指分组键（如名称、类别列）相同的冗余行，有两种高效处理方式：

• 方式一：求和过程中直接去重
  利用Scripting.Dictionary存储分组键与累加值，天然规避重复项，最后直接将字典内容写入工作表，无需事后删除重复行。
• 方式二：事后批量删除重复行
  若已完成求和操作，可使用Excel内置的RemoveDuplicates方法快速删除指定列的重复行，示例代码：

  ' 假设分组键在A列，数据从第2行到最后一行，保留表头
  ActiveSheet.Range("A2:Z" & ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes
  

  注意：执行此操作前需确保同分组的求和值已合并到唯一行，避免数据丢失。

2. 最后数值丢失问题修复 #

该问题多因循环边界处理错误导致（如循环提前终止，未处理最后一行），以下是修正后的完整实现代码，同时解决求和、去重、数值丢失三个问题：

Sub GroupSumAndCleanData()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dict As Object
    Dim i As Long
    Dim groupKey As String
    Dim sumColumn As Integer ' 求和列列号，示例为C列（第3列）
    Dim groupCols As Variant ' 分组键列，示例为A、B列
    
    Set ws = ActiveSheet
    sumColumn = 3
    groupCols = Array(1, 2) ' 对应A、B列的列号
    lastRow = ws.Cells(Rows.Count, groupCols(0)).End(xlUp).Row
    
    ' 初始化字典存储分组数据
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 遍历所有数据行（从第2行开始，跳过表头）
    For i = 2 To lastRow
        ' 拼接分组键，确保同组数据唯一识别
        groupKey = ws.Cells(i, groupCols(0)).Value & "|" & ws.Cells(i, groupCols(1)).Value
        ' 累加求和列数值
        If dict.Exists(groupKey) Then
            dict(groupKey) = dict(groupKey) + ws.Cells(i, sumColumn).Value
        Else
            dict(groupKey) = ws.Cells(i, sumColumn).Value
        End If
    Next i
    
    ' 清空原有数据（保留表头）
    ws.Range("A2:Z" & lastRow).ClearContents
    
    ' 将处理后的数据写回工作表
    i = 2
    For Each groupKey In dict.Keys
        ' 拆分分组键，写回对应列
        ws.Cells(i, groupCols(0)).Value = Split(groupKey, "|")(0)
        ws.Cells(i, groupCols(1)).Value = Split(groupKey, "|")(1)
        ' 写入求和结果
        ws.Cells(i, sumColumn).Value = dict(groupKey)
        i = i + 1
    Next groupKey
    
    Set dict = Nothing
    MsgBox "分组求和及去重完成！"
End Sub

代码说明 #

• 通过字典存储分组键与累加值，从根源避免重复行，无需额外删除操作。
• 循环遍历到最后一行（lastRow），确保所有数据都被处理，彻底解决最后数值丢失问题。
• 可根据实际需求修改sumColumn（求和列）和groupCols（分组键列）的配置。

额外注意事项 #

• 若你使用的是相邻行对比的求和逻辑，需确保循环结束后处理最后一组数据的写入操作，避免遗漏。
• 使用RemoveDuplicates时，需确认分组列的唯一性，防止误删有效数据。

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