Excel中有时候为了更好地显示所选择的单元格，会将单元格所在行与列用颜色标识出来以达到效果，如何才能实现自动将所选单元格对应的行与列的颜色自动改变呢？今天就介绍一种利用条件格式与VBA代码实现选择单元格后所在行列自动变色的方法。工具/原料moreOffice2013方法/步骤1/6分步阅读

Ctrl+A将Excel单元格全选（如果只需要设置部分区域实现选择单元格行列变肺宿色的效果，那么这里就选择这个“部分区域”），点击“开始”选项卡中的“条件格式”，选择“新建规则”，如下图所示：

2/6

“选择规则类型”中选择“使用公式确定要设置格式的单元格”,并在下面的文本框中输入公式：=(CELL(row)=ROW())+(CELL(col)=COLUMN())

公式解菌蚊释：公式分两部分，第一部分：(CELL(row)=ROW())——利用cell(“row”)函数获得条件格式区域单元格的行号与利用row行数获得的当前单元格行号进行比较，如果相等则返回TRUE，否则返回FALSE；第二部分(CELL(col)=COLUMN())——利用cell(“col”)函数获得条件格式区域单元格的列数与利用column行数获得的当前单元格列进行比较，如果相等则返回TRUE，否则返回FALSE；两部分相加，即满足其中任意一个条件就返回TRUE，触发条件格式，都不满足时才返回FALSE无法出发条件格式。

3/6

然后点击右下角的“格式”，进入格式设置对话框，这里设置填充底色为黄色，如下图所示：

4/6

点击确定后，捧川脾返回Excel，可以看到第一行和第一列已经填充了黄色，但是这个颜色并不会随着选择的单元格而变化，如下图所示：

5/6

按下Alt+F11，打开VBE界面，选择左侧的当前工作表，并在右侧空白处复制粘贴如下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Calculate

Application.ScreenUpdating = False

Application.ScreenUpdating = True

End Sub

代码解释：当选择单元格时触发代码，代码内容为重新计算。也就是每次选择单元格，会执行重新计算的VBA代码，因此条件格式中的公式会重新计算，使得当前选择的单元格对应的行列变色。另外，添加强制屏幕刷新是要消除可能存在的显示Bug。

6/6

返回Excel，这样就实现了选择单元格，这个单元格对应的行列变色，如下图所示：

注意事项

如果单元格设置的格式与条件格式冲突（例如都设置了填充底色），则会变条件格式临时覆盖，选择其他单元格后，原来的格式又会出现，也就是说不会影响原来的设置。

EXCELVBA自动变色行列变色高亮显示