Excel VBA组合框自动完成 手动输入非列表项报错问题咨询

报错是逻辑判断缺失导致的：当用户输入列表中不存在的内容时，组合框下拉列表无匹配项，此时ListCount属性值为0，直接访问.List(0)相当于读取空数组的第一个元素，必然触发无效属性数组索引错误。
原逻辑仅判断了ListIndex = -1（未选中列表项）的场景，没有提前校验列表是否存在有效项，是崩溃的核心原因。

根据你提到的两类组合框交互需求，不需要统一用Vlookup/Match做校验，按场景分别处理即可：

• 仅允许选择列表内固定选项的组合框：可以加输入校验，匹配不到列表项时提示用户选择有效内容，再执行自动填充首项的逻辑。
• 需要同时支持下拉选择、手动输入自定义内容的组合框：不需要强制将Value赋值为列表项，直接保留用户输入的原始内容即可，符合自定义输入的交互预期，额外做校验反而会打断用户输入自定义内容的流程。

Private Sub Company_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim IsArrow As Boolean
    Debug.Print Time; "KeyDown"; KeyCode; Company.ListIndex; Company.ListCount, Company.Value
    IsArrow = (KeyCode = vbKeyUp) Or (KeyCode = vbKeyDown)
    
    If KeyCode = vbKeyReturn Then
        ' 加载数据源时补全工作表引用，避免活动表切换导致读取行数错误
        With Worksheets("Company_Table")
            Me.Company.List = .Range("A2", .Cells(.Rows.Count, "A").End(xlUp)).Value
        End With
    ElseIf KeyCode = vbKeyTab Then
        With Me.Company
            ' 先判断列表是否有匹配项，从根源避免空数组索引报错
            If .ListCount > 0 Then
                If .ListIndex = -1 Then
                    .Value = .List(0)
                Else
                    .Value = .List(.ListIndex)
                End If
            End If
            ' 无匹配项时不做强制赋值，自动保留用户输入的自定义内容
        End With
        KeyCode = vbKeyReturn
    End If
End Sub

额外修复点：原代码中Rows.Count未指定所属工作表，默认读取当前活动工作表的行数，当活动表不是Company_Table时会出现数据源读取范围错误，上述代码已同步修正该问题。

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