使用数组中的两个文本字段填充组合框

想象一下这些数据 Worksheets("Sheet1")

ComboBox1像这样填充您的组合框：遍历数据并用于.AddItem添加两个数据列的组合。

Private Sub UserForm_Initialize()
    Dim Data() As Variant 'array
    Data = Worksheets("Sheet1").Range("A1:B4").Value 'read data into array

    Me.ComboBox1.Clear

    Dim iRow As Long
    For iRow = LBound(Data, 1) To UBound(Data, 1)
        Me.ComboBox1.AddItem Data(iRow, 1) & " " & Data(iRow, 2)
    Next iRow
End Sub

然后，您可以如下选择项目：

你可以检索值B 2有Me.ComboBox1.Text：

Debug.Print Me.ComboBox1.Text 'returns B 2