[已解决]汇总出非重复项、、、、、、、、、、、、^_^

win9

汇总非重复项.rar (13.22 KB, 下载次数: 5)

2016-3-21 20:37 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

josonxu

2016-3-21 22:13

Dim r&, i&, dic, ar, k
    Set dic = CreateObject("scripting.dictionary")
    ar = Sheet1.Range("D8:D" & Sheet1.[D65536].End(xlUp).Row)
    For r = 1 To UBound(ar, 1)
        dic(ar(r, 1)) = ""
    Next
    k = dic.Keys

这样就行了

跳转到最佳答案楼层

josonxu

就是这样  你看看 汇总非重复项.zip (14.7 KB, 下载次数: 9)

2016-3-21 22:01 上传

点击文件名下载附件 已更新

win9

josonxu 发表于 2016-3-21 21:40
就是这样  你看看

老师可以把序号格式改成

001
002
003

这种吗？

josonxu

win9 发表于 2016-3-21 21:48
老师可以把序号格式改成

001

已更新

win9

josonxu 发表于 2016-3-21 22:01
已更新

Private Sub UserForm_Initialize()
    Dim r&, i&, dic, ar, k
    Set dic = CreateObject("scripting.dictionary")
    ar = Sheet1.Range("D8:D26")  ‘老师这句改成下面这样就不行，麻烦老师再改下获取D列最大行号
    For r = 1 To UBound(ar, 1)
        dic(ar(r, 1)) = ""
    Next
    k = dic.Keys

Dim r&, i&, dic, ar, k
    Set dic = CreateObject("scripting.dictionary")
    ar = Sheet1.[D65536].End(xlUp).Row
    For r = 1 To UBound(ar, 1)
        dic(ar(r, 1)) = ""
    Next
    k = dic.Keys

josonxu

Dim r&, i&, dic, ar, k
    Set dic = CreateObject("scripting.dictionary")
    ar = Sheet1.Range("D8:D" & Sheet1.[D65536].End(xlUp).Row)
    For r = 1 To UBound(ar, 1)
        dic(ar(r, 1)) = ""
    Next
    k = dic.Keys

这样就行了

josonxu

自己灵活变通  就会进步很快

win9

josonxu 发表于 2016-3-21 22:14
自己灵活变通  就会进步很快

谢谢老师指点~！

josonxu

win9 发表于 2016-3-21 22:16
谢谢老师指点~！

相互学习   没有老师