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

1、打开需要操作的 EXCEL文档（为了方便起见，我将文档简单化），如下图所示：

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

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

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

5、进入到 VBA程序编辑栏中，如果学过VB的同学可能比较熟悉这个页面，如果没有学过的同学也不用担心，我教大家修改一下我的代码就可以完成大家想要的效果，

      Sub test()

将下面的代码复制到这中间，如图所示，

End Sub

Range(" 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

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

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

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