excel vba 指定列去重

wangaizu

各位大神，请帮忙用VBA将I列与L列的内容去重，并将结果对应C列的内容显示在sheet2中。

liulang0808

建议楼主进一步在附件中模拟下结果
两列去重，是保留哪一个呢？

不知道为什么

liulang0808 发表于 2018-4-23 20:22
建议楼主进一步在附件中模拟下结果
两列去重，是保留哪一个呢？

所以楼主要说明两列是否唯一对应？

liulang0808

http://club.excelhome.net/thread-1385473-1-1.html
这个是整理之前的字典帖子，有简单的去重，楼主可以参考下的

wangaizu

liulang0808 发表于 2018-4-23 20:22
建议楼主进一步在附件中模拟下结果
两列去重，是保留哪一个呢？

版主，您好。其实我就是想要统计下C列里机构名称对应的I列投保人客户号、L列被保人客户号去重后（I列、L列数据有可能相同，要对这两列去重，保证这两列客户号的唯一性），有多少个不重复的客户号，显示结果在sheet2中显示出：宿迁市区续期 50，泗洪续期 40，宿迁市区 50（后面的数字为I，L列去重后的合计数量） 显示结果如图片所示

半百

这样吗？
Sub TEST()
Set d = CreateObject("Scripting.Dictionary")
R = Sheets(1).Range("A65536").End(3).Row
ARR = Sheets(1).Range("A4:I" & R)
For I = 1 To UBound(ARR)
    If Not d.EXISTS(ARR(I, 3)) Then
        d(ARR(I, 3)) = ""
        Set d(ARR(I, 3)) = CreateObject("Scripting.Dictionary")
        d(ARR(I, 3))(ARR(I, 9)) = ""
    Else
        d(ARR(I, 3))(ARR(I, 9)) = ""
    End If
Next
With Sheets("Sheet2")
    .[A1:B1] = Array("机构名称", "客户数量")
    N = 1
    For Each d1 In d
        N = N + 1
        .Cells(N, 1) = d1
        .Cells(N, 2) = d(d1).Count
    Next
End With
End Sub