广告合作
  • 今日头条

    今日头条

  • 百度一下

    百度一下,你就知道

  • 新浪网

    新浪网 - 提供新闻线索,重大新闻爆料

  • 搜狐

    搜狐

  • 豆瓣

    豆瓣

  • 百度贴吧

    百度贴吧——全球领先的中文社区

  • 首页 尚未审核订阅工具 订阅

    如何用VBA替换vlookup函数运行速度慢怎么处理

    来源:网络收集  点击:  时间:2024-03-27
    【导读】:
    如何用VBA替换vlookup函数运行速度慢怎么处理工具/原料moreEXCEL2007-2016电脑一台方法/步骤1/9分步阅读

    新建一个EXCEL工作表,并保存为启用宏的工作薄

    2/9

    点击文件--选项---信任中心---信任中心设置,开启宏控制

    3/9

    输入数据,要求用VBA根据编号,查找对应的姓名和成绩

    4/9

    点击开发工具-插入--按钮控件

    5/9

    在弹出的窗口点击新建,

    6/9

    而后会进入VBA编辑界面。我们需要讲准备好的代码,复制到VBA窗口

    7/9

    代码:

    Sub 按钮1_Click()

    arr = 条件区域

    Set d = CreateObject(scripting.dictionary)

    For i = 2 To 3 用来查找放置的原始数据

    Set d(arr(1, i)) = CreateObject(scripting.dictionary)

    For j = 2 To 900000 可以在数据库中提取的最小最大个数

    d(arr(1, i))(arr(j, 1)) = arr(j, i)

    Next

    Next

    For i = 7 To 8 就是查找的结果要放置的列号地方

    For j = 2 To 1000 符合条件的数据粘贴的行范围

    Cells(j, i) = d(Cells(1, i).Text)(Cells(j, 6).Text) 1是指的数据范围的标题,6为条件列

    Next

    Next

    End Sub

    8/9

    代码复制后如图

    9/9

    而后我们点击按钮,就会得出符合条件的值

    编程语言VBA替换VLOOKUP
    本文关键词:

    版权声明:

    1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。

    2、本站仅提供信息发布平台,不承担相关法律责任。

    3、若侵犯您的版权或隐私,请联系本站管理员删除。

    4、文章链接:http://www.1haoku.cn/art_365732.html

    相关资讯

    ©2019-2020 http://www.1haoku.cn/ 国ICP备20009186号05-06 10:17:55  耗时:0.025
    0.0248s