请教大神：VBA字典怎样整理数据？谢！

白云无尽9987

请教大神：VBA字典怎样整理数据？谢！.zip (9.33 KB, 下载次数: 16)

2024-3-2 15:10 上传

点击文件名下载附件

gwjkkkkk

Option Explicit
Sub TEST9()
    Dim ar, br, i&, r&, dic As Object, vKey
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
    ar = [C1].CurrentRegion.Value
   
    For i = 2 To UBound(ar)
        If Not dic.exists(ar(i, 1)) Then
            Set dic(ar(i, 1)) = CreateObject("Scripting.Dictionary")
        End If
        dic(ar(i, 1))(ar(i, 2)) = Empty
    Next i
   
    ReDim br(1 To dic.Count, 1 To 2)
    For Each vKey In dic.keys
        r = r + 1
        br(r, 1) = vKey
        br(r, 2) = Join(dic(vKey).keys, "、")
    Next
    [I2].Resize(UBound(br), 2) = br
   
    Set dic = Nothing
    Application.ScreenUpdating = True
End Sub

gwjkkkkk

请参考。。。

清风竹-

请看附件。

^星^

请教大神：VBA字典怎样整理数据？谢！.zip (16.04 KB, 下载次数: 13)

2024-3-2 15:37 上传

点击文件名下载附件

无关岁月

副本请教大神：VBA字典怎样整理数据？谢！.7z (15.94 KB, 下载次数: 8)

2024-3-2 16:29 上传

点击文件名下载附件

今铭昔

白云无尽9987

无关岁月 发表于 2024-3-2 16:30

感谢帮助，鲜花延迟奉上……

白云无尽9987

今铭昔 发表于 2024-3-2 17:21

感谢帮助，鲜花延迟奉上……

yynrzwh