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

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

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

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

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

5、在弹出的窗口点击新建，

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

7、代码:

Sub 按钮1_Click()

    arr = [a1:e900000] '条件区域

    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、而后我们点击按钮，就会得出符合条件的值