小编jav*_*vad的帖子

我想将下面的项目添加到组合框，但如果有一个项目的重复项，那么应该只添加一个。

   A
1 john  
2 john
3 marry
4 marry
5 john
6 lisa
7 frank
8 marry

我想组合框的结果是john，marry，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