在使用excel查找数据时查找到的单元格显示不够醒目，看的人眼花缭乱，下面的教程可以实现为查找到的数据单元格填充颜色、也可以数据对应的整行、整列填充。

注意！注意！此修改会对编辑功能造成影响比如单元格颜色填充，选择整行时卡顿等介意的请谨慎操作！

适用于单纯的表格数据查询。重要表格数据可以复制一个副本来修改避免表格损坏数据丢失。

修改后如需恢复，打开VBA编辑器把代码删除保存就好。

☘第一步需要使用VBA来实现此功能,需要启用宏。以下是启用宏的步骤

打开Excel。
点击 文件 选项卡，然后选择 选项。
在Excel选项窗口中，选择 信任中心，然后点击 信任中心设置 按钮。
在 信任中心 设置窗口中，选择 宏设置。
选择 启用所有宏 选项，并确保勾选 信任对VBA项目对象模型的访问。
点击 确定 保存设置。

☘第二步打开VBA编辑器

打开Excel文件，按 Alt + F11 打开VBA编辑器。
在VBA编辑器中，找到你的工作表（通常在左侧的“项目资源管理器”窗口中）。
双击要应用代码的工作表（例如“Sheet1”）。

*也可以按下面方式打开打开Excel。

在功能区中，点击 开发工具 选项卡。如果你看不到 开发工具 选项卡，请按照以下步骤启用：

点击 文件 -> 选项。
在Excel选项窗口中，选择 自定义功能区。
在右侧的 主选项卡 列表中，勾选 开发工具，然后点击 确定。
在 开发工具 选项卡中，点击 Visual Basic 按钮

🌾第三步输入VBA代码

输入完记得保存好

单元格填充颜色代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 4
End Sub

效果图：

整行填充颜色代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    If Not Intersect(Target, Me.UsedRange) Is Nothing Then
        Dim cell As Range
        For Each cell In Target
            cell.EntireRow.Interior.ColorIndex = 4
        Next cell
    End If
End Sub

整列填充颜色代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    If Not Intersect(Target, Me.UsedRange) Is Nothing Then
        Dim cell As Range
        For Each cell In Target
            cell.EntireColumn.Interior.ColorIndex = 4
        Next cell
    End If
End Sub

行和列填充颜色代码：

需要使用不同颜色的请修改代码中"4"这个参数，以下是对应的颜色

黑色：1白色：2红色：3绿色：4蓝色：5黄色：6

需要注意的是，使用了脚本后鼠标选择哪个单元格，也是会填充颜色！不一定要在查找功能才会填充。

高版本的excel有原生的功能视图——焦点单元格；但只能填充行和列选项，没有其它选择。

在使用excel查找数据时查找到的单元格显示不够醒目，看的人眼花缭乱，下面的教程可以实现为查找到的数据单元格填充颜色、也可以数据对应的整行、整列填充。

注意！注意！此修改会对编辑功能造成影响比如单元格颜色填充，选择整行时卡顿等 介意的请谨慎操作！

适用于单纯的表格数据查询。重要表格数据可以复制一个副本来修改避免表格损坏数据丢失。

☘第一步需要使用VBA来实现此功能,需要启用宏。以下是启用宏的步骤

☘第二步打开VBA编辑器

🌾第三步输入VBA代码

注意！注意！此修改会对编辑功能造成影响比如单元格颜色填充，选择整行时卡顿等介意的请谨慎操作！