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]

@johnnyL = Dumba$$ sometimes

 

[Michael M]

@johnnyL .........not at all....something about not seeing the forest...

 

[johnnyL]

hmm, my test would qualify for abysmal. oh well.

 

[Michael M]

hmm, my test would qualify for abysmal.

Why what did you do wrong....didn't you get the desired result ??

 

[johnnyL]

Desired result is spot on, Desired time was, well let us say, embarassing.

 

[Michael M]

Do you mean the code was slow....or the user...

 

[johnnyL]

? Most likely the user.

 

[Michael M]

Did you see the speed test results I posted in Post #12, based on 30000 rows of data ??
Were yours slower than that ??

 

[johnnyL]

yes and yes

 

[Michael M]

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