|
楼主 |
发表于 2016-3-21 22:08
|
显示全部楼层
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
|
|