实例9 字典取行数，数组重新赋值
For j = 1 To UBound(R, 2) R(k, j) = R(i, j) Next End If Next With Sheet2
.Cells.ClearContents
.Cells.Borders.LineStyle = xlNone .[a1:F1].Resize(d.Count + 1) = R
.[a1:F1].Resize(d.Count + 1).Borders.LineStyle = 1 End With Set d = Nothing End Sub
三、代码详解
1、R = Sheet1.UsedRange ：把表1的已经使用了的单元格区域的值赋给变量R。 2、k = 1 ：变量k赋初值1。
3、For i = 2 To UBound(R) ：由于第一行是表头，所以从第2行开始循环。
4、R(i, 2) = Replace(Replace(R(i, 2), \（\\\）\\ ：由于源数据中用了不统一的括号，所以加了这句把里面中文括号统一替换为英文括号。这句用了两次VBA函数Replace，一次替换前半个，另一次替换后半个。Replace函数有6个参数，详细请查阅VBA帮助文件。如果在这里解释，篇幅太长了，也冲淡了字典的主题。 5、If d.Exists(R(i, 2)) Then ：这句用字典的Exists方法进行判断，如果字典中存在R(i, 2)这个关键字，那么执行下面的代码。
6、这里先解释，Else如果上面的判断不成立，即字典中不存在这个关键字时，要执行下面的代码。
7、k = k + 1 ：变量k+1以后再赋给k。
8、d(R(i, 2)) = i ：公司名字作为关键字，对应的项是它所在的行，把它们加入字典d。
9、For j = 1 To UBound(R, 2) ：知道了这个关键字所在的行，下面这个循环就是重新给数组同一行的各个元素赋值。UBound(R, 2)是用VBA函数Ubound求得数组R的第2维的最大上界。比如本例R数组第1维的最大上界是8，有8行数据；而第2维的最大上界是6，有6列数据。本循环j就是从第1列到第6列依次循环。 10、R(k, j) = R(i, j) ：把i行j列的数组元素赋给k行j列的R数组元素。
11、R(d(R(i, 2)), 1) = R(d(R(i, 2)), 1) & \ ：再回来说如果R(i, 2)这个关键字存在，则执行这条代码。在这之前，这关键字已经加入字典了，它的同一行的各个数
37
常见字典用法集锦及代码详解
组元素也重新赋过值了，所以根据问题的要求，把A列的数据用\连起来再赋给A列这个数组元素。
12、R(d(R(i, 2)), 4) = R(d(R(i, 2)), 4) & \ ：D列数据同上。
13、R(d(R(i, 2)), 5) = Val(R(d(R(i, 2)), 5)) + R(i, 5) ：E 列数据要相加，这里用了VBA函数Val，把E列数组元素转为数值以后相加汇总。下句类同。 14、With Sheet2 ：With语句，前面介绍过的。
15、.Cells.ClearContents ：清空表2所有的数据。Cells是工作表对象的属性，指工作表所有的单元格；ClearContents是它的方法，清除里面的公式、数据，但是保留格式设置。
16、.Cells.Borders.LineStyle = xlNone ：清除表2所有的边框。Borders是Cells的属性，意思是单元格的边框；LineStyle是边框的属性，为边框的线型，它有直线、虚线、点划线等等，这里取值xlNone是清除边框。
17、.[