VBA复选框内容选择单元格区域内不重复的内容

Question

我想把VBA复选框下拉菜单内容选择为单元格区域（D2：DX）（有内容的最后一行）内不重复（单元格内若有重复的内容，在下拉菜单中只显示一个）的内容，我写的是下面的代码，显示重复的内容始终有重复的，请高人指点如何改代码！谢谢！
Private Sub Label3_Click()
ComboBox2.List = Sheets("项目情况一览表").Range("d2:d" & Range("d65536").End(3).Row).Value
End Sub

Answer 1

你这个代码完全没有去除重复值。你应该先去除重复值之和，再使用这个list属性。追问

我就是没有弄明白如何去除重复值，请指点！

追答

可以用字典法，给你举个例子，稍等。

Dim myDic As Object, i As Long
Set myDic = CreateObject("scripting.dictionary")
With Sheets("项目情况一览表")
    For i = 2 To .Cells(Rows.Count, 4).End(xlUp).Row
        myDic(.Cells(i, 4).Value) = 1
    Next i
End With
ComboBox2.List = myDic.keys

本回答被提问者采纳