VBA中判断Variant是否为Null或数组，解决ComboBox赋值报错问题

这问题我之前踩过一模一样的坑！核心原因是你用tempj <> Null的判断逻辑，在tempj变成数组的时候会直接触发类型不匹配——毕竟数组是复合类型，和Null这种单值的Variant特殊值根本没法直接用关系运算符比较。咱们来一步步修改：

问题根源拆解 #

• 当范围无数据时：tempj是Null，原判断正常跳过
• 当范围只有1条数据时：tempj是单个单元格的值（Variant单值类型），和Null比较没问题
• 当范围≥2条数据时：tempj变成了二维数组（Excel.Range赋值给Variant默认是二维结构，哪怕是单列），这时候用<> Null比较就会直接报错

修正后的代码方案 #

方案一：分情况处理Null、单值、数组 #

If Not IsNull(tempj) Then
    ' 判断是否为数组（≥2条数据的情况）
    If IsArray(tempj) Then
        ' 把Excel返回的二维数组转成ComboBox需要的一维数组
        cmb_JobNum.List = Application.Transpose(tempj)
    Else
        ' 单条数据时，手动包装成一维数组（避免ComboBox只显示第一个字符的问题）
        cmb_JobNum.List = Array(tempj)
    End If
End If

方案二：更简洁的统一处理写法 #

用IIf函数直接把单值转成数组，统一赋值逻辑：

If Not IsNull(tempj) Then
    Dim arr As Variant
    ' 数组就转一维，单值就包装成数组
    arr = IIf(IsArray(tempj), Application.Transpose(tempj), Array(tempj))
    cmb_JobNum.List = arr
End If

额外优化建议：先获取真正的有效范围 #

如果你的A3可能为空，或者下面有零散空单元格，建议先把范围收缩到实际有数据的区域，避免tempj包含无效的空值：

Dim dataRange As Range
' 从A3向上找最后一个有数据的单元格，确定有效范围
Set dataRange = Range("A3", Range("A" & Rows.Count).End(xlUp))

' 防止A3本身为空时，End(xlUp)跑到A1的情况
If dataRange.Row < 3 Then
    tempj = Null
Else
    tempj = dataRange.Value
End If

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