• 單列信息查詢（Vlookup）

源數據

Sub vf()
    Dim i&, d As Object, arr
    arr = [a1].CurrentRegion'將數據放進數組arr
    Set d = CreateObject("scripting.dictionary")創建字典
    For i = 2 To UBound(arr)'將數組元素放進字典
        d(arr(i, 1)) = arr(i, 2)'左邊皮膚key，右邊金幣item
    Next
    [f1] = d([e1].Value)'輸出數據，記住子弟讀取單元格是要寫上.value
End Sub

結果

• 整列查詢：根據數字編號，查詢整條數據。

源數據

Sub gf()
    Dim d As Object, i&, arr
    Set d = CreateObject("scripting.dictionary")'創建字典
    arr = [a1].CurrentRegion'數組賦值
    For i = 1 To UBound(arr)'遍歷數組
'用array函數將整列數據組成一個一維數組，作為item。
        d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6))
    Next
    For i = 1 To 5'輸出數據
        Cells(i, "K").Resize(1, 5) = d(Cells(i, "j").Value)
    Next
End Sub

結果