使用Excel VBA合并求和问题：需无条件合并汇总G列数值

原代码仅当除第一列外的内容完全相同时（对应G列数值相同的场景）才会合并求和，无法实现指定项（蓝色/红色标记项）的强制合并。以下是修改后的代码及说明：

修改后的代码 #

Sub MergeSpecifiedItems()
    Dim fn As String, a, x, s As String, i As Long, temp
    Dim mergeItems As Variant
    Dim currentItem As String
    
    ' 定义需要强制合并的指定项（替换为实际的项标识，比如A列的内容）
    mergeItems = Array("蓝色标记项", "红色标记项")
    
    ' 选择CSV文件
    fn = Application.GetOpenFilename("CSV文件,*.csv")
    If fn = "False" Then Exit Sub
    
    ' 读取CSV所有内容并按行拆分
    x = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(fn).ReadAll, vbNewLine)
    ReDim a(1 To UBound(x) + 1, 1 To 1)
    
    With CreateObject("Scripting.Dictionary")
        For i = 0 To UBound(x)
            If x(i) <> "" Then
                ' 获取当前行的项标识（这里假设标识在第一列，即Split后的索引0，可根据实际调整）
                currentItem = Split(x(i), ",")(0)
                
                ' 判断当前项是否属于需要强制合并的指定项
                If IsError(Application.Match(currentItem, mergeItems, 0)) Then
                    ' 非指定项：保留原逻辑，用除第一列外的内容作为分组键
                    s = Split(x(i), ",", 2)(1)
                Else
                    ' 指定项：用项标识作为分组键，强制合并
                    s = currentItem
                End If
                
                If Not .Exists(s) Then
                    ' 首次出现：存入数组
                    .Item(s) = .Count + 1
                    a(.Count, 1) = x(i)
                Else
                    ' 重复出现：合并第一列内容，汇总G列（索引6）数值
                    temp = Split(a(.Item(s), 1), ",")
                    temp(0) = temp(0) & ", " & Split(x(i), ",")(0)
                    temp(6) = Val(temp(6)) + Val(Split(x(i), ",")(6))
                    a(.Item(s), 1) = Join(temp, ",")
                End If
            End If
        Next
    End With
    
    ' 将结果写入工作表并格式化
    With Cells(1).Resize(UBound(a, 1))
        .CurrentRegion.ClearContents
        .Value = a
        .TextToColumns .Cells(1), xlDelimited, comma:=True
        .CurrentRegion.Columns.AutoFit
    End With
End Sub

关键修改说明 #

• 指定合并项定义：通过mergeItems数组设置需要强制合并的项标识，用户需替换为实际业务中的蓝色/红色标记项名称。
• 分组键逻辑调整：
  • 非指定项：保留原代码的分组逻辑（以除第一列外的内容作为键），确保其他项的正常分组。
  • 指定项：直接用项标识作为分组键，强制所有同标识的行合并，无论其他列（包括G列）数值是否相同。
• 合并逻辑优化：去掉了原代码中用Chr(2)作为分隔符的操作，直接用, 拼接第一列内容，更直观。

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