Excel VBA中ComboBox写入A1单元格时报错：无效矩阵索引，求解决方法

嗨，这个报错的原因其实很好排查，主要有两个常见的坑，咱们拆解来看：

为什么会报错？ #

1. 事件触发时机不对 #

DropButtonClick是你点击下拉按钮展开列表的瞬间就触发的，这时候你还没选任何选项呢！ComboBox的ListIndex此时是-1（代表没有选中项），这时候去访问Column(0)或Column(1)，就相当于去一个空数组里找元素，自然会抛出"无效矩阵索引"的错误。

2. ComboBox的列数没配置对 #

如果你的ComboBox没设置ColumnCount = 2，或者你给它绑定的数据源只有1列，那Column(1)这个索引就超出了实际的列数范围，同样会触发这个错误。

怎么解决？ #

方案一：换个更合适的事件（推荐） #

把赋值逻辑放到ComboBox1_Change事件里——这个事件是用户真正选中某个选项后才触发的，完全符合你想要的效果：

Private Sub ComboBox1_Change()
    ' 先确认有选中项再执行赋值
    If Me.ComboBox1.ListIndex >= 0 Then
        Sheet1.Range("A1").Value = Me.ComboBox1.Column(0) & " " & Me.ComboBox1.Column(1)
    End If
End Sub

如果你一定要保留DropButtonClick事件，那得先加个判断，确保有选中项再操作：

Private Sub ComboBox1_DropButtonClick()
    If Me.ComboBox1.ListIndex >= 0 Then
        Sheet1.Range("A1").Value = Me.ComboBox1.Column(0) & " " & Me.ComboBox1.Column(1)
    Else
        ' 可选：如果没选中，清空A1或者提示用户
        Sheet1.Range("A1").Value = ""
    End If
End Sub

方案二：确保ComboBox的列数配置正确 #

在窗体初始化的时候，记得设置好列数并加载数据源（比如放到UserForm_Initialize里）：

Private Sub UserForm_Initialize()
    ' 设置ComboBox显示2列
    Me.ComboBox1.ColumnCount = 2
    ' 示例：从Sheet2的A1:B10加载数据，替换成你自己的数据源即可
    Me.ComboBox1.List = Sheet2.Range("A1:B10").Value
End Sub

这样就能保证ComboBox有足够的列数供你访问，不会出现索引越界的问题。

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