43、[VBA入门到放弃笔记]字典应用：查询

  • 单列信息查询（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
结果
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容