vba字典重复key_字典实例七（需要写入key的值有重复怎么办）

前面一节我们讲了如果一个key对应的item不止一个数据，可以用条目数组的方法，把几个数据联合在一起写入item，那如果是key的值不止一个该怎么办呢？

如下：

把姓名写入key，因为结果需要保留重复姓名所以肯定不能直接把姓名写入key，如果能把姓名和星期合并起来写入key，把上班时间写入item，这样就不会有重复了。

可是key的值不能这样写：

key(array(a1,a2,a3))=……

所以我们只能另想办法，如果把姓名和星期直接连接在一起，那肯定是可以写入的，为了后面分离的时候方便，我们可以在姓名和星期之间加一个逗号。

代码1：

Sub 格式转化()

Dim d As Object, arr1, arr2, i%, j%, xx, n%

Set d = CreateObject('scripting.dictionary')

arr1 = Range('a2', [h2].End(xlDown))

arr2 = [b1:h1]

For i = 1 To UBound(arr1)

For j = 1 To UBound(arr1, 2) - 1 '或者直接写6

d(arr1(i, 1) & ',' & arr2(1