Excel VBA UserForm：基于ComboBox2选择填充ComboBox1问题求助

你的代码存在三个关键问题，导致ComboBox1无法正常填充：

1. 事件绑定错误
   原代码用了ComboBox1_Update事件，这个事件只会在ComboBox1自身内容更新时触发，完全不会响应ComboBox2的选择变化，应该改用ComboBox2_Change事件。

2. 条件匹配类型不匹配
   你定义index = ComboBox2.ListIndex（这是整数，对应选项的索引，从0开始），但Select Case里却用字符串（比如"17"）作为判断条件，两者类型不匹配，根本触发不了对应的分支。应该直接判断ComboBox2.Value（当前选中的文本内容）。

3. 区域赋值的冗余与严谨性问题
   直接用[SUPPLY_TO_PRODUCTION!T6:T1000]这种方式引用区域，不仅不够严谨，还会把区域里的空白行也塞进ComboBox，导致列表出现大量空项。建议明确引用工作表对象，并过滤掉空值。

修正后的完整代码：

Private Sub UserForm_Initialize()
    ' 初始化ComboBox2的选项
    With ComboBox2
        .AddItem "17"
        .AddItem "19"
        .AddItem "21"
        .AddItem "23"
        .AddItem "25"
        .AddItem "25+"
    End With
End Sub

Private Sub ComboBox2_Change()
    Dim ws As Worksheet
    Dim targetRange As Range
    Dim cell As Range
    Dim itemList As Collection
    
    ' 清空ComboBox1原有内容
    ComboBox1.Clear
    Set ws = ThisWorkbook.Worksheets("supply_to_production")
    Set itemList = New Collection
    
    ' 根据ComboBox2的选择确定目标区域
    Select Case ComboBox2.Value
        Case "17"
            Set targetRange = ws.Range("T6:T1000")
        Case "19"
            Set targetRange = ws.Range("V6:V1000")
        Case "21"
            Set targetRange = ws.Range("X6:X1000")
        Case "23"
            Set targetRange = ws.Range("Z6:Z1000")
        Case "25"
            Set targetRange = ws.Range("AB6:AB1000")
        Case "25+"
            Set targetRange = ws.Range("AD6:AD1000")
        Case Else
            ' 无匹配时直接退出
            Exit Sub
    End Select
    
    ' 遍历区域，收集非空值（自动去重）
    On Error Resume Next
    For Each cell In targetRange
        If Trim(cell.Value) <> "" Then
            itemList.Add cell.Value, Key:=CStr(cell.Value)
        End If
    Next cell
    On Error GoTo 0
    
    ' 将收集到的非空值填充到ComboBox1
    Dim i As Integer
    For i = 1 To itemList.Count
        ComboBox1.AddItem itemList(i)
    Next i
End Sub

额外说明： #

• 代码中加入了非空值过滤，同时用Collection实现自动去重（如果不需要去重，删除On Error Resume Next和Key:=CStr(cell.Value)即可）。
• 明确引用ThisWorkbook.Worksheets("supply_to_production")，避免因为当前激活工作表变化导致的错误。

内容的提问来源于stack exchange，提问作者NewbieNils