VBA用户窗体双列ComboBox单选项时列值错位问题求助

当字典d中只有一组键值对时，d.keys和d.items返回的不是数组，而是单个值。此时Array(d.keys, d.items)生成的是一个包含两个元素的一维数组（职位ID和职位名称），经Application.Transpose转置后仍为一维数组。ComboBox会把这个一维数组的每个元素当作单独行显示，导致职位名称跑到第二行，而非同一行的第二列。

需要确保d.keys和d.items始终以数组形式参与运算，以下两种方式均可修复问题：

方法1：强制单个值转为数组 #

通过判断字典数量，单独处理仅有一组数据的情况，强制将单个值转为数组：

Private Sub ComboBox5_DropButtonClick()
    Dim i As Long
    Dim keysArr As Variant, itemsArr As Variant
    
    For i = LBound(vList) To UBound(vList)
        If UCase(vList(i, 3)) = UCase(ComboBox1.Value) And _
            UCase(vList(i, 6)) = UCase(ComboBox2.Value) And _
            UCase(vList(i, 7)) = UCase(ComboBox3.Value) And _
            UCase(vList(i, 8)) = UCase(ComboBox4.Value) Then

            If Not d.Exists(vList(i, 1)) Then
                d.Add vList(i, 1), vList(i, 2)
            End If
        End If
    Next
    
    ' 处理单个键值对的情况，强制转为数组
    If d.Count = 1 Then
        keysArr = Array(d.keys)
        itemsArr = Array(d.items)
    Else
        keysArr = d.keys
        itemsArr = d.items
    End If
    
    Post = Application.Transpose(Array(keysArr, itemsArr))
    ComboBox5.ColumnCount = 2
    ComboBox5.List = Post
    d.RemoveAll
End Sub

方法2：用Application.Index构造二维数组 #

利用Application.Index直接生成标准二维数组，无需判断数量，代码更简洁：

Private Sub ComboBox5_DropButtonClick()
    Dim i As Long
    
    For i = LBound(vList) To UBound(vList)
        If UCase(vList(i, 3)) = UCase(ComboBox1.Value) And _
            UCase(vList(i, 6)) = UCase(ComboBox2.Value) And _
            UCase(vList(i, 7)) = UCase(ComboBox3.Value) And _
            UCase(vList(i, 8)) = UCase(ComboBox4.Value) Then

            If Not d.Exists(vList(i, 1)) Then
                d.Add vList(i, 1), vList(i, 2)
            End If
        End If
    Next
    
    If d.Count > 0 Then
        ' 用Index构造二维数组，避免单个元素时的数组异常
        Post = Application.Index(Array(d.keys, d.items), 0, 0)
        ComboBox5.ColumnCount = 2
        ComboBox5.List = Post
    Else
        ' 无匹配项时清空ComboBox
        ComboBox5.Clear
    End If
    d.RemoveAll
End Sub

• 建议在循环前添加ComboBox5.Clear，避免旧数据残留
• 确认全局变量vList的数据格式正确，防止因数据类型问题引发异常

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