Excel VBA将项目添加到组合框而不重复项目
我想将下面的项目添加到combobox,但如果有重复的项目,则只应添加一个Excel VBA将项目添加到组合框而不重复项目,excel,vba,Excel,Vba,我想将下面的项目添加到combobox,但如果有重复的项目,则只应添加一个 A 1 john 2 john 3 marry 4 marry 5 john 6 lisa 7 frank 8 marry 我希望组合框结果为john、mary、lisa和frank(四个唯一项,而不是八个项) 我的代码是: Private Sub Workbook_Open() Application.EnableEvents = False With Sheet2.ComboBox1
A
1 john
2 john
3 marry
4 marry
5 john
6 lisa
7 frank
8 marry
我希望组合框结果为john
、mary
、lisa
和frank
(四个唯一项,而不是八个项)
我的代码是:
Private Sub Workbook_Open()
Application.EnableEvents = False
With Sheet2.ComboBox1
For Each Cell In Sheet1.Range("A1:A6348")
If Not ComboBox1.exists(Cell.Value) Then
.AddItem Cell.Value
End If
Next
End With
End Sub
添加唯一项的另一种方法是使用
字典
对象
见下文:
Dim rngItems As Range
Dim oDictionary As Object
Set rngItems = Range("A1:A8")
Set oDictionary = CreateObject("Scripting.Dictionary")
With Sheet1.ComboBox21
For Each cel In rngItems
If oDictionary.exists(cel.Value) Then
'Do Nothing
Else
oDictionary.Add cel.Value, 0
.AddItem cel.Value
End If
Next cel
End With
你看过这个方法了吗?
Dim rngItems As Range
Dim oDictionary As Object
Set rngItems = Range("A1:A8")
Set oDictionary = CreateObject("Scripting.Dictionary")
With Sheet1.ComboBox21
For Each cel In rngItems
If oDictionary.exists(cel.Value) Then
'Do Nothing
Else
oDictionary.Add cel.Value, 0
.AddItem cel.Value
End If
Next cel
End With