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