Excel VBA代码无法用数组填充ComboBox及类型不匹配问题求助

我来帮你一步步梳理代码里的问题，解决ComboBox填充的「类型不匹配」错误，同时修正之前版本里的其他隐患。

核心问题：最终版代码的类型不匹配原因 #

你最后那段代码的错误根源是直接把二维数组赋值给ComboBox控件对象，而不是通过控件的List属性来设置数据源。从Range导出的arr是二维数组（格式为arr(行号, 列号)），ComboBox的List属性才是专门用来接收这种二维数组的入口。

修改后的最终可用代码 #

Sub Auto_Open()
    With Worksheets(5)
        ' 获取D6到D列最后一行的区域，再扩展到E列（共两列数据）
        Dim erg As Range: Set erg = .Range(.Range("D6"), .Range("D" & .Rows.Count).End(xlUp)).Resize(, 2)
        Dim arr As Variant: arr = erg.Value
        ' 关键：通过List属性赋值，同时设置列数以显示两列内容
        With Worksheets(1).ComboBox1
            .ColumnCount = 2 ' 必须设置为2，才能正确展示两列数据
            .List = arr
        End With
    End With
End Sub

之前版本的错误梳理 #

你的初始版和更新版1里还有几个明显的问题，导致代码根本无法正常运行：

• NumElements赋值错误：你试图把Range对象直接赋值给变量，但NumElements应该是一个表示行数的数字，正确写法是：

  NumElements = .Range(.Range("D6"), .Range("D" & .Rows.Count).End(xlUp)).Rows.Count
  

• 未指定工作表的Cells引用：cells(4+i,4)没有带上With块的工作表前缀，会默认使用当前激活的工作表，大概率读取到错误的数据，应该写成.Cells(4+i,4)
• Me的误用：在普通模块里Me没有意义，它只在用户窗体或工作表模块中代表自身，普通模块里必须明确指定工作表（比如Worksheets(1).ComboBox1）
• 拼写错误：更新版1里的Me.Combobox少写了数字1，应该是ComboBox1

额外注意事项 #

1. 如果你的ComboBox是在用户窗体上（而非工作表控件），需要调整为指定窗体对象的写法，比如：

   UserForm1.ComboBox1.List = arr
   

2. Auto_Open宏在新版Excel中兼容性一般，建议换成Workbook_Open事件（放在ThisWorkbook模块里），触发更稳定：

   Private Sub Workbook_Open()
       ' 把上面的代码内容放这里
   End Sub
   

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