VBA|利用字符串拼接存储到字典中，在使用split分割实现数组数据存储字典

Dim d  As Object
Set d = CreateObject("scripting.dictionary")
Dim r as Integer
Dim arr
r = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("a1:o" & r)
'省略一些，理解思路即可,就是遍历
d(arr(i, 2)) = d(arr(i, 2)) & arr(i, 10) & ","

For Each k In d.Keys
    item = Left(d(k), Len(d(k)) - 1)
    '去掉最后一个逗号
    arr1 = Split(item, ",")
    '拆分，存入数组
    '也可以存入二位数组，需要redim
    '可以整列或整个表写入单元格，更快，单个写入耗时较长
Next