VBA中使用Range列填充ComboBox报Error 380 RowSource错误求助

你触发Error 380 Runtime RowSource的核心原因是：参考代码绑定的是A列纵向单列区域，符合ComboBox单行下拉的RowSource绑定规则，但你要填充的A3:J3是横向单行区域，直接绑定横向区域不符合RowSource的参数要求就会报错。

稳定实现方案（无报错） #

直接遍历横向表头单元格逐个加项，兼容性最好，不会触发行源绑定错误：

' 先清空下拉框原有项
ComboBox1.Clear
' 设置下拉框默认提示文本
ComboBox1.Value = "请从下拉列表选择表头字段"

Dim headerArea As Range, targetCell As Range
' 指定你要加载的蓝色表头区域
Set headerArea = Sheet1.Range("A3:J3")

' 遍历区域内所有单元格，逐个添加为下拉选项
For Each targetCell In headerArea
    ' 跳过空单元格，避免出现空白下拉项
    If Not IsEmpty(targetCell.Value) Then
        ComboBox1.AddItem targetCell.Value
    End If
Next

简洁数组实现方案 #

如果不想写循环，可以用工作表转置函数把横向的表头区域转成纵向数组，直接赋值给下拉框的List属性，比直接绑定RowSource兼容性更强：

ComboBox1.Clear
ComboBox1.Value = "请从下拉列表选择表头字段"
' 转置横向单行区域为纵向一维数组，直接加载到下拉项
ComboBox1.List = Application.Transpose(Sheet1.Range("A3:J3").Value)

注意事项 #

• 禁止直接给RowSource属性赋值横向单行多列区域，这是触发380错误的直接原因
• 如果后续表头列数有调整，只需要修改代码中Range("A3:J3")的范围为实际表头区域即可
• 上述两种方案都会自动跳过空单元格，不会生成无效的空白下拉项

内容的提问来源于stack exchange，提问作者Raúl Palma Kaschel