Excel VBA词典存储和检索

Question

如何创建excel VBA词典？

说我有以下值：

我如何设置列A为重点，B列的值？

我是否循环每个值来存储？

如何去使用字典后获得的5实例（“键”）

Answer 1

把答案在这里以作记录，从reddit的用户MRMCMLXXXV

源https://www.reddit.com/r/excel/comments/6u4swi/how_do_you_create_a_dictionary_in_excel_vba_and/

值

Public Sub DictionaryExamples() 

    Dim exampleValues As Variant 
    Dim i As Long 
    Dim aKey As String 
    Dim aValue As Integer 
    Dim exampleDict As Object 

    'Load values into a variant array 
    exampleValues = Range("A1:B10").Value 

    'Instantiate a dictionary 
    Set exampleDict = CreateObject("scripting.dictionary") 

    'Read all keys and values, and add them to the dictionary 

    For i = 1 To UBound(exampleValues) 
     aKey = CStr(exampleValues(i, 1)) 
     aValue = CInt(exampleValues(i, 2)) 
     exampleDict.Add aKey, aValue 
    Next i 

    'Output the value associated with key A 

    MsgBox exampleDict.Item("A") 

End Sub 

结果看起来像在Excel

Answer 2

在Excel：

=VLOOKUP("D", A:B, 2,FALSE) 

返回20。 在VBA：

MsgBox WorksheetFunction.VLookup("D", Sheet1.Range("A:B"), 2, False) 

弹出20。