[已解决]如何将A列内容，添加到窗体下拉列表内！且不重复！

因为上传不了附件，只能给图了！

最佳答案

月排行榜 / 总排行榜

grf1973

2015-4-3 13:12

1. Private Sub UserForm_Initialize()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheet1.[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         d(arr(i, 1)) = ""
   
6.     Next
   
7.     Me.ComboBox1.List = d.keys
   
8. End Sub

复制代码

跳转到最佳答案楼层

zjdh

帮你解决了，你也下载不了附件啊！

grf1973

1. Private Sub UserForm_Initialize()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheet1.[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         d(arr(i, 1)) = ""
   
6.     Next
   
7.     Me.ComboBox1.List = d.keys
   
8. End Sub

复制代码

谢谢 上面2位大神啦！问题解决了！

还是这里好，excelhome真心不怎么样！

grf1973

两家是一家吧？