将列表/字典中的项转换为二维数组VBA的第一列

Sub ConvertTo2DArray()
    Dim myList As Object
    Set myList = CreateObject("Scripting.Dictionary")
    
    ' 添加列表或字典中的项
    myList.Add "项1", "值1"
    myList.Add "项2", "值2"
    myList.Add "项3", "值3"
    
    ' 获取列表或字典中的项数
    Dim itemCount As Integer
    itemCount = myList.Count
    
    ' 定义二维数组
    Dim myArray() As Variant
    ReDim myArray(1 To itemCount, 1 To 2)
    
    ' 将列表或字典中的项转换为二维数组
    Dim i As Integer
    For i = 1 To itemCount
        myArray(i, 1) = myList.Keys(i - 1)
        myArray(i, 2) = myList.Items(i - 1)
    Next i
    
    ' 打印二维数组中的值
    For i = 1 To itemCount
        Debug.Print myArray(i, 1) & ": " & myArray(i, 2)
    Next i
End Sub