国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

Sub ss()
Dim d, arr, r As Integer
    [c:d].Clear
Set d = CreateObject("Scripting.Dictionary")
    r = Cells(Rows.Count, 1).End(xlUp).Row
    arr = Range("a1:b" & r)
For i = 1 To UBound(arr)
    If Not d.exists(arr(i, 1)) Then
d(arr(i, 1)) = arr(i, 2)
    Else
d(arr(i, 1)) = d(arr(i, 1)) & "+" & arr(i, 2)
    End If
Next
    [c1].Resize(d.Count, 1) = Application.Transpose(d.keys)
    [d1].Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub