组合框-如何在excel中激活组合框而不必转到；Visual Basic“；以及运行代码

每次运行代码时，我都会收到重复的变量。很烦人，我怎么解决这个程序

Private Sub ComboBox2_Change()
    With Sheet3.ComboBox2
        .AddItem "TH"
        .AddItem "Reinitialize TH (Moving Along Line)"
        .AddItem "Reinitialize TH (End of Session)"
        .AddItem "Discrepancy W/ Field Notes"
        .AddItem "  "
        .AddItem "Data Collector Failed"
        .AddItem "Mentioned In Field Notes"
    End With
End Sub

更新

---

问题解决了-我使用了错误的函数

Private Sub ComboBox2_Change() 
  With Sheet3.ComboBox2 
    ComboBox2.List = Array("TH/Alignment", "Reinitialize TH (Moving Along Line)", "Reinitialize TH (End of Session)", "Discrepancy W/ Field Notes", "Data Collector Failed", "Mentioned In Field Notes", " ")
  End With
End Sub 

---

运行此代码后，它不会创建重复值

ComboBox2.Clear

如果我在代码开头添加“ComboBox2.Clear”，它会修复生成的重复项，但是，当我选择一个值时，它不会出现在单元格中……如果我添加“ComboBox2.Clear”在代码的末尾，它将创建一个空白的组合框列表。为什么每次组合框发生变化时都要向其中添加项目？这毫无意义。问题解决了-我使用了错误的函数。Private Sub ComboBox2_Change（）和Sheet3.ComboBox2 ComboBox2.List=数组（“TH/对齐”，“重新初始化TH（沿直线移动）”，“重新初始化TH（会话结束）”，“不符W/字段注释”，“数据采集器失败”，“字段注释中提及”，“结束时使用End Sub”一旦运行此代码，它不会创建重复的值

ComboBox2.Clear

如果我在代码开头添加“ComboBox2.Clear”，它会修复生成的重复值，但是，当我选择一个值时，它不会出现在单元格中……如果我添加“ComboBox2.Clear”在代码的末尾，它将创建一个空白的组合框列表。为什么每次组合框发生变化时都要向其中添加项目？这毫无意义。问题解决了-我使用了错误的函数。Private Sub ComboBox2_Change（）和Sheet3.ComboBox2 ComboBox2.List=Array（“TH/对齐”、“重新初始化TH（沿直线移动）”、“重新初始化TH（会话结束）”、“带字段注释的差异”、“数据采集器失败”、“字段注释中提及”、“结束时使用End Sub”一旦运行此代码，它不会创建重复的值