Excel高亮所选单元格所在行列

§ Excel自动高亮行列1.VB程序实现2.VB程序加条件规则和公式实现

§ Excel自动高亮行列

在使用Excel的时候，有时候需要看某一单元格所在行或者列的其他数据，当数据特别多的时候，找同一行的数据就显的很难受，高亮当前所在行列有两种方式;

方案一：新建规则，通过函数高亮|优点是不需要开启宏，但是每次选中单元格后需要按F9才可以高亮，比较繁琐。

1.VB程序实现

使用开发工具中的VB进行程序控制

优点是每次单击即可激活高亮相应的行列，直接复制代码进去即可，使用方便缺点是退出后最后一个高亮的行列会被填充颜色，原来的颜色会被清除对于没有填充颜色，且不要求保留原来颜色的元格，可以采用如下方法

实现代码如下

'这样的行是VB注释，不会被编译Private Sub Worksheet_SelectionChange(ByVal Target As Range)With Target'清除工作表单元格的背景色.Parent.Cells.Interior.ColorIndex = xlNone'设置选中区域所在行的背景色，这里是RGB颜色的十进制代码.EntireRow.Interior.Color = 5296274'设置选中区域所在列的背景色，这里是RGB颜色的十进制代码.EntireColumn.Interior.Color = 5296274End WithEnd Sub

2.VB程序加条件规则和公式实现

步骤如下：

2.1创建名称

公式→定义名称→输入名称→输入起范围（定义的时候可选，之后不可修改）→在引用位置处输入函数

//63 传回储存格的填满色彩//单元格位置都可以，大门时需要注意不能加绝对引用符号=GET.CELL(63,Sheet1!T8)=0

2.2创建条件格式

开始→条件格式→新建规则→如下图设置，选择使用公式要设置格式的单元格→输入规则公式→在格式中选择填充颜色

//注意最后一个参数要与上边的公式标签名称一致=AND((CELL("col")=COLUMN())+(CELL("row")=ROW()),getcell)

2.3设置规则生效的范围

在规则管理器中管理刚才添加的规则应用区域

2.4添加自动刷新VB程序

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Application.ScreenUpdating = TrueEnd Sub

最终效果：

可以发现原来的单元格颜色还在，但是当整行整列填充颜色的时候可能会出现问题，有得有舍吧，看需求，总之两种方案都不是很完美。

如果觉得《Excel-01高亮所选单元格所在行列》对你有帮助，请点赞、收藏，并留下你的观点哦！