EXCEL活动单元格单元格所在行或列突出显示

Alt+F11进入VBA编辑器，双击需要行列突出显示的工作表名，在右边框内粘贴如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="nRow", RefersToR1C1:=Target.Row
ActiveWorkbook.Names.Add Name:="nColumn", RefersToR1C1:=Target.Column
End Sub
关闭VBA编辑器。
选择需要突出显示的单元格区域（不要全选，否则会影响运行速度），格式－条件格式，条件选择公式，并输入公式：
=(ROW()=nRow)+(COLUMN()=nColumn)
格式按钮，图案，选择一个自己满意的颜色，确定，再确定。

VBA