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。