利用VBA快速查找EXECL中的对应项

时间:2024-10-12 07:56:53

1、打开需要操作的 EXCEL文档(为了方便起见,我将文档简单化),如下图所示:

利用VBA快速查找EXECL中的对应项

2、将需要查找项拷贝到右边任何一列中(里面没有内容最好),如图所示的红色部分:

利用VBA快速查找EXECL中的对应项

3、点击工具栏上面的”开发工具“,再点击”宏“按钮,如下图所示:

利用VBA快速查找EXECL中的对应项

4、在宏名位置输入任何一些字符串,给VBA宏起个名字,点击”创建“铵钮,如下图所示:

利用VBA快速查找EXECL中的对应项

5、进入到 VBA程序编辑栏中,如果学过VB的同学可能比较熟悉这个页面,如果没有学过的同学也不用担心,我教大家修改一下我的代码就可以完成大家想要的效果, Sub test()将下面的代码复鲽判砦吟制到这中间,如图所示,End SubRange(" E1048576").End(xlUp).Select '选择E列所有在效格zd = Range("E1048576").End(xlUp).Row ' E列为被查找列Range(" H1048576").End(xlUp).Select '选择H列所有在效格zx = Range("H1048576").End(xlUp).Row 'H 列为需要查找项 For i = 1 To zd '利用 FOR 揗环来查找 For j = 1 To zx If Cells(i, 5) = Cells(j, 8) Then 'Cells(i, 5)中的5 代表第5列 'Cells(j, 8) 中的8 代表第8列 Cells(i, 5).Font.ColorIndex = 3 '将查找出的对应项字体改为红色 End If Next Next

利用VBA快速查找EXECL中的对应项

6、添加好后,点击如下图中的运行按钮,如下图:

利用VBA快速查找EXECL中的对应项

7、回到EXCEL表中,我们发现,奇迹发生了,我们要找的对应项字体颜色都变成红色了,

利用VBA快速查找EXECL中的对应项

8、只要我们再对所选项进行字体颜色排序,所有项都能排在一起,是不是很实用呢?那就赶紧投我一票吧!

© 手抄报圈