如何在Excel VBA中显示多列ComboBox并获取选中的双列值？

咱们先拆解下你当前代码的核心问题：

• 你两次给ComboBox.List赋值，第二次的tnamelist会完全覆盖第一次的tcodelist，所以最终ComboBox里只有物料描述这一列数据，自然看不到物料ID；
• 数组处理的逻辑太繁琐，没必要拆分两个数组再调整大小，直接从工作表取多列数据更高效；
• 你没设置ColumnWidths，就算有两列数据，第一列也可能因为宽度为0被隐藏。

我给你调整了代码，简化逻辑同时满足你的需求：

Sub inittCode()
    Dim wsMD As Worksheet
    Dim lastRow As Long
    Dim dataRange As Range
    
    ' 避免激活工作表，直接引用对象更可靠
    Set wsMD = ThisWorkbook.Worksheets("MD")
    lastRow = wsMD.Cells(wsMD.Rows.Count, 1).End(xlUp).Row
    
    ' 获取包含物料ID和描述的范围（从第2行到最后一行，第1-2列）
    Set dataRange = wsMD.Range("A2:B" & lastRow)
    
    ' 配置ComboBox
    With MD_initform.matselcb
        .ColumnCount = 2 ' 设置显示2列
        .BoundColumn = 1 ' 绑定第一列（物料ID，后续可通过.Value获取该值）
        .ColumnWidths = "80;150" ' 设置列宽，确保两列都显示，单位为磅
        .List = dataRange.Value ' 一次性填充多列数据
    End With
End Sub

你可以在ComboBox的Change事件（或者你需要触发的事件，比如按钮点击）中，获取选中项的两列值：

Private Sub matselcb_Change()
    Dim selectedMatID As String
    Dim selectedMatDesc As String
    
    ' 确保有选中项
    If Me.matselcb.ListIndex <> -1 Then
        selectedMatID = Me.matselcb.List(Me.matselcb.ListIndex, 0) ' 第一列：物料ID
        selectedMatDesc = Me.matselcb.List(Me.matselcb.ListIndex, 1) ' 第二列：物料描述
        
        ' 这里可以把值用于后续处理，比如打印或者赋值给其他控件
        MsgBox "选中的物料ID：" & selectedMatID & vbCrLf & "物料描述：" & selectedMatDesc
    End If
End Sub

• 不要用Activate/Select操作工作表，直接引用工作表对象的方式更稳定，避免因为当前激活的工作表变化而出错；
• ColumnWidths的设置很关键，如果你不设置，默认第一列宽度可能为0，看起来就像只显示第二列；
• BoundColumn设为1的话，ComboBox.Value会返回物料ID，如果你想让Value返回物料描述，可以把它改成2，不影响你通过List属性获取另一列的值。

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