Expanding table via Scripting dictionary

[Michael M]

Hi All
I've been trying to improve my knowledge of Dictionaries and have been using this code kindly submitted by @Rick Rothstein some time ago.
How can I expand the data so that it also sums column "C" as well. Any help would be much appreciated

Sub Consolidate()
  Dim R As Long, Data As Variant
  Data = Range("A2", Cells(Rows.Count, "B").End(xlUp))
  With CreateObject("Scripting.Dictionary")
    For R = 1 To UBound(Data)
      .Item(Data(R, 1)) = .Item(Data(R, 1)) + Data(R, 2)
     Next R
    Range("D2").Resize(.Count) = Application.Transpose(.Keys)
    Range("E2").Resize(.Count) = Application.Transpose(.Items)
  End With
End Sub

 

[johnnyL]

Using the same data ??........Geez, you must have a Mac !!

Lol No. I just tried to try a non dictionary approach that everyone else had used.

My array driven approach ended up being probably twice as slow as the slowest time in your chart. It was still fast, just in respect to the others, abysmal., time wise.