重複する行のデータを単一の行と合計に結合する

Question

私はこれに対する答えを探しましたが、データの行が1つしかないときにこれを行う方法を見てきました。私は、データが2行にあるという報告があります。私はピボットテーブルを見てきましたが、それはそのような複数の行が好きではありません。私はVBAを試しても、どの方向に向けるべきかを指導する必要がありますが、データが2つの別々の行にあることを知っていれば、Excelの問題に挑戦しています。それぞれの最初の行と最後の行はグループ化されています。私は私の例では異なる色で強調表示します。

私はマクロは、すべてのデータを取得し、一つに2つの行を結合して、ピボットテーブルを実行するかもしれないと思いますが、私はその極端に行かなければならないだろう期待していました。どんな援助も素晴らしいものになるか、正しい方向で私を始めるためのポイントになるでしょう。ありがとう。

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