将来自重复行的组数据合并为单行和总和

Question

我已经搜索过这个问题的答案，当你只有一行数据时，我已经看到了如何做到这一点。我有一个报告，数据是2行。我查看了数据透视表，但它不喜欢那样的多行。我需要一个指导方向的指导，即使我已经尝试了它的VBA，但我只是遇到了excel的问题，知道数据是在两个单独的行上。每个行的第一行组合在一起。我将以我的例子中的不同颜色突出显示。

我想我可以让宏获取所有数据并将两行合并为一个然后运行数据透视表但希望我不必去那个极端。任何帮助都会很好，或者是朝着正确的方向指导我帮助我入门。谢谢。

Answer 1

准备好您的数据副本

Public Sub CombineRows()
    Dim DescriptionCol As Long, HeaderRow As Long, NoRow As Long
    Dim i As Long

    HeaderRow = 6
    ' Change this to your sheet
    With Sheet1
        'Change this to your starting column (looks like B in the pic)
        DescriptionCol = 2
        NoRow = .Cells(.Rows.Count, DescriptionCol).End(xlUp).Row

        For i = NoRow To HeaderRow + 1 Step -2
            With .Cells(i, DescriptionCol)
                .Offset(-1, 0).Value2 = .Offset(-1, 0).Value2 & ": " & .Value2
                .Value2 = vbNullString
                ''Uncomment below to delete unused lines
                '.EntireRow.Delete
            End With
        Next i
    End With
End Sub