Question

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

With Worksheets("汇总")
.UsedRange.Offset(1, 0).ClearContents
.Range("c1").Resize(1, d1.Count) = d1.Keys
.Range("a2").Resize(d.Count, 2 + d1.Count) = Application.Transpose(Application.Transpose(d.Items))
r = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("a1").Resize(r, 2 + d1.Count).Borders.LineStyle = xlContinuous
希望通过一段代码将一个文件夹中的几个excel工作簿汇总到一个工作簿中，如果excel中表头不一样则累加到汇总工作簿的不同列，网上下了一段代码但总是不成功，这里就看不懂了，有没有高手指导一下，谢谢。

Answer 1

这是模块的一小部分。挺奇怪的，既然你看得懂字典的赋值部分，怎么会看不得懂取值部分。这里有两个字典：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 '设置边框

追问

其实前面也没看懂，只是全粘过来超出字数限制，先看下您的答案消化一下，不懂再问您，感谢！

您好，请问 mypath = ThisWorkbook.Path & "\"​
myname =Dir(mypath & "*.xls")​这两句代表什么意思，谢谢！

第一句是把什么赋值给mypath了啊。

追答

第一句是把当前工作簿的路径+“\”赋值给mypath
第二名是取当前工作簿文件夹下EXCEL表名。

Answer 2

单步调试看变化情况