下列vba代码请帮助添加注释

这是模块的一小部分。挺奇怪的，既然你看得懂字典的赋值部分，怎么会看不得懂取值部分。这里有两个字典：d和d1。
With Worksheets("汇总") '在汇总工作表中
.UsedRange.Offset(1, 0).ClearContents '清除除第一行外的内容
.Range("c1").Resize(1, d1.Count) = d1.Keys '以（c1为起点行数1行，列数为d1字典关键字数量）单元格的值=d1字典的关键字
.Range("a2").Resize(d.Count, 2 + d1.Count) = Application.Transpose(Application.Transpose(d.Items)) '以（a2为起点行数为d字典关键字数量，列数为d1字典关键字数量+2）单元格的值=d1字典的条目值
r = .Cells(.Rows.Count, 1).End(xlUp).Row 'r=最后一行的行号
.Range("a1").Resize(r, 2 + d1.Count).Borders.LineStyle = xlContinuous '设置边框

单步调试看变化情况