不用字典，用一个简单的vba能实现不？各位大神仙看看

daphy123

蓝桥玄霜 发表于 2015-3-10 11:32
这种问题用字典是最方便的了。

简单明了 快速高效

everbest2015

Sub My_dic()
    Dim d As Object, i&, m&, ar, br(), s As Variant, k, x
    Set d = CreateObject("Scripting.Dictionary")
    ar = Range("a1").CurrentRegion
    [E:F].Clear
    For i = 2 To UBound(ar)
        s = ar(i, 1)
        If Not d.exists(s) Then
            d(s) = ar(i, 2)
        Else
            d(s) = d(s) & ", " & ar(i, 2)
        End If
    Next
    ReDim br(1 To d.Count + 1, 1 To 2)
    br(1, 1) = "班级": br(1, 2) = "姓名"
    k = d.keys
    m = 1
    For Each x In k
            m = m + 1
           br(m, 1) = x
           br(m, 2) = d(x)
    Next
    [e1].Resize(m, 2) = br
    Set d = Nothing
    Erase ar: Erase br
End Sub