Я получил это: Set dict = CreateObject("Scripting.Dictionary")
rn = 2
Do While ThisWorkbook.Sheets("1").Range("B" & rn).Value <> ""
If (ThisWorkbook.Sheets("1").Range("B" & rn).Value
У меня есть кадр pandas данных следующим образом: date | Item | count
------------------------------------
2016-12-06 10:45:08 | Item1 | 60
2016-12-06 10:45:08 | Item2 | 145
2016-12-06 09:45:00