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 NextFor i = 7 To 8 '就是查找的结果要放置的列号地方 For j = 2 To 1000 '符合条件的数据粘贴的行范围Cells(j, i) = d(Cells(1, i).Text)(Cells(j, 6).Text) '1是指的数据范围的标题,6为条件列 Next NextEnd Sub
8、代码复制后如图

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