可通过条件格式或VBA实现Excel活动行自动高亮：一、条件格式用公式=CELL("row")=ROW()实时高亮；二、VBA用Worksheet_SelectionChange事件精准响应；三、增强型VBA方案限定数据区且保留原格式。
如果您在Excel中希望当前选中的行自动高亮显示，以便快速定位数据位置，则可通过条件格式或VBA代码实现动态高亮效果。以下是两种独立可行的方法：
一、使用条件格式高亮活动行
该方法利用Excel内置的条件格式功能与单元格引用特性，通过公式判断当前行是否为活动单元格所在行，无需编写代码，兼容性好且实时响应。
1、选中需要应用高亮效果的数据区域（例如A2:G100），注意避开标题行；
2、在【开始】选项卡中点击【条件格式】→【新建规则】；
3、选择【使用公式确定要设置格式的单元格】；
4、在公式框中输入：=ROW()=ROW($A$1)；
5、点击【格式】按钮，设置填充颜色（如浅黄色），确认后点击【确定】；
6、此时活动单元格所在行不会立即高亮，需按F9刷新或启用“启用迭代计算”并配合INDIRECT函数变通——但更可靠的方式是改用以下动态公式；
7、重新编辑规则，将公式替换为：=CELL("row")=ROW()；
8、再次点击【确定】完成设置。
二、使用VBA代码高亮活动行
该方法通过Worksheet_SelectionChange事件实时捕获选区变化，清除上一行高亮并为新选中行设置背景色，响应精准且不受条件格式刷新机制限制。
1、按Alt+F11打开VBA编辑器；
2、在左侧工程资源管理器中双击对应工作表名称（如Sheet1）；
3、在右侧代码窗口中粘贴以下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lastRow As Long, lastCol As Long
Static prevRow As Long
If prevRow 0 Then Rows(prevRow).Interior.ColorIndex = xlNone
prevRow = Target.Row
Rows(prevRow).Interior.Color = RGB(255, 255, 204)
End Sub
4、关闭VBA编辑器返回Excel界面；
5、确保Excel启用了宏（文件→选项→信任中心→宏设置→启用所有宏）；
6、任意点击单元格，所在整行即刻显示淡黄色背景。
三、增强型VBA方案（保留原格式且仅高亮数据区）
该方案避免覆盖原有单元格边框与字体格式，并限定高亮范围为实际数据区域，防止空白行误触发。
1、按Alt+F11打开VBA编辑器；
2、双击目标工作表对象；
3、删除已有SelectionChange代码（如有）；
4、粘贴以下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dataRange As Range, highlightRow As Range
Static prevHighlight As Range
Set dataRange = Me.UsedRange
If Not Intersect(Target, dataRange) Is Nothing Then
If Not prevHighlight Is Nothing Then prevHighlight.Interior.ColorIndex = xlNone
Set highlightRow = Rows(Target.Row)
Set prevHighlight = highlightRow
highlightRow.Interior.Color = RGB(240, 248, 255)
End If
End Sub
5、保存工作簿为启用宏的格式（.xlsm）；
6、测试点击任意数据区内单元格，对应行以天蓝色背景高亮，且不改变原有字体、边框等格式。
