字典中，item文本书写问题

simic1989

请问如何把range("e5")单元格返回的值最前面的"、"去掉有什么标准的字典写法吗？

魂断蓝桥

Sub a()
Dim arr, brr(1 To 999, 1 To 2), i%, m%, d
Set d = CreateObject("Scripting.Dictionary")
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
    If Not d.exists(arr(i, 1)) Then
        m = m + 1
        brr(m, 1) = arr(i, 1)
        brr(m, 2) = arr(i, 2)
        d(arr(i, 1)) = m
    Else
        brr(d(arr(i, 1)), 2) = brr(d(arr(i, 1)), 2) & "、" & arr(i, 2)
    End If
Next
[d1:f99] = ""
[d1].Resize(m, 2) = brr
Set d = Nothing

liujialin0o0

倒数第4行改为 Cells(i, 5) = Right(dic(k), Len(dic(k)) - 1)

YZC51

倒数第4行改为 Cells(i, 5) = Mid(dic(k), 2)
试试