重复项处理

zeroes

左侧收据号码存在重复项目，一个重复项对应多个编号，希望处理后能将一个重复项的编号汇总，各个编号汇总用、间隔

libo5563

看看好使不

约定的童话

模拟数据下次记得给点代表性的数据(文件所给没有一个重复的.....)
Sub test()
    Dim d As Object, i, arr
    Set d = CreateObject("scripting.dictionary")
    arr = [a1].CurrentRegion
    For i = 2 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
    [d2].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
End Sub

little-key

你搜索一下彭希仁版主的“常用工具”，里边有一个快速合并的工具

little-key

还有一种方法，就是关注Excel Home 的微信公众号，祝洪忠版主曾经发布过使用Power Query做合并的方法

zeroes

libo5563 发表于 2019-6-9 00:07
看看好使不

非常感谢你回答我两个问题，你的数据查询你在哪里学习的可以推荐一下吗？因为你的稍微通俗易懂一些我可以教一下同事。

zeroes

约定的童话 发表于 2019-6-9 08:31
模拟数据下次记得给点代表性的数据(文件所给没有一个重复的.....)
Sub test()
    Dim d As Object, i, ...

你好谢谢，重复的是收据号，我用条件格式标红了，所以那些是重复，而收据号对应的编号本来就是唯一的。再冒昧的问一下，如果我要学习VB应该从哪里开始，目前我看了VB其实很简单这书

约定的童话

zeroes 发表于 2019-6-9 11:05
你好谢谢，重复的是收据号，我用条件格式标红了，所以那些是重复，而收据号对应的编号本来就是唯一的。再 ...

看书+练习同步进行吧，这样学的快一点

hcm19522

類似
http://club.excelhome.net/thread-1482192-1-1.html