將來自重複行的組數據合併爲單行和總計

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