計算重複行之間的更改

Question

我有從第三方程序導出的數據。數據總是以範圍的形式出現，每次導出時總是一個新鮮的未保存的excel文件。

數據本質上包含這種類型的格式。

169 31.0 
169 29.0 
12 01.31 
03 22.0 
12 1.09 
03 21.5 

對不起，我是本網站的新用戶。基本上一列是與成分相關的代碼，第二列是它們的重量。你會看到重複的麪包店前後的重量。我想不得不計算每種成分的使用量。所以最終的輸出將是一張表格，其中一列中包含獨特配料代碼列表，另一列中前後的區別。

我試過使用數據透視表，但總結了它們。差異公式需要一個單獨的列來比較自己。我不幸的是沒有。

有沒有更簡單的方法來做到這一點？我基本上想要一個數據透視表的相同功能，但有差異而不是總和。

Answer 1

假設你的數據在A到B柱，並從第1行開始，你可以試試這個代碼：

Sub Main2() 
    Dim cell As Range 

    With CreateObject("Scripting.Dictionary") 
     For Each cell In Range("A1").CurrentRegion.Columns(1).Cells 
      If .Exists(cell.Value) Then 
       .Item(cell.Value) = .Item(cell.Value) - cell.Offset(, 1).Value 
      Else 
       .Item(cell.Value) = cell.Offset(1).Value 
      End If 
     Next cell 
     Range("C1").Resize(.Count).Value = Application.Transpose(.Keys) 
     Range("D1").Resize(.Count).Value = Application.Transpose(.Items) 
    End With 
End Sub 

在列C和d