关键词1 关键词101 关键词201 关键词301 关键词401 关键词501 关键词601 关键词701 关键词801 关键词901 关键词1001 关键词1101 关键词1201 关键词1301 关键词1401 关键词1501 关键词1601 关键词1701 关键词1801 关键词1901 问答1 问答101 问答201 问答301 问答401 问答501 问答601 问答701 问答801 问答901 问答1001 问答1101 问答1201 问答1301 问答1401 问答1501 问答1601 问答1701 问答1801 问答1901 懂视1 懂视101 懂视201 懂视301 懂视401 懂视501 懂视601 懂视701 懂视801 懂视901 懂视1001 懂视1101 懂视1201 懂视1301 懂视1401 懂视1501 懂视1601 懂视1701 懂视1801 懂视1901 文库1 文库101 文库201 文库301 文库401 文库501 文库601 文库701 文库801 文库901 文库1001 文库1101 文库1201 文库1301 文库1401 文库1501 文库1601 文库1701 文库1801 文库1901 分类文章1 分类文章101 分类文章201 分类文章301 分类文章401 分类文章501 分类文章601 分类文章701 分类文章801 分类文章901 分类文章1001 分类文章1101 分类文章1201 分类文章1301 分类文章1401 分类文章1501 分类文章1601 分类文章1701 分类文章1801 分类文章1901

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