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

我试图从数组中的2个单元格中获取值，以填充userform上组合框的文本字段。数组中的值如下所示：

A  1
B  2
C  3
B  4

我想在组合框文本字段中区分B2和B4。该字段当前像

B

一样填充。我想用

b2

代替它。这个问题部分与这个问题有关

---

我尝试使用链接自的，但无法使ListCount属性正常工作。我过去常常更好地理解数组，希望它能提供一些见解。我尝试了这种方法，但它没有填充文本字段。看起来它更多的是为了找到一个值，而且似乎是唯一的值相关的。我试过了，但似乎被阵列绊倒了。任何帮助都将不胜感激。

想象一下

工作表（“Sheet1”）中的数据。

按如下方式填充组合框：循环数据并使用

.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

然后，您可以按如下方式选择您的项目：

您可以使用

Me.ComboBox1.Text

检索值

b2

：

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