运行效果：二：可以高亮显示指定区域内的行和列，如下面的代码所示。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Cells.Interior.ColorIndex = xlNone
Set rng = Application.Union(Target.EntireColumn, Target.EntireRow)
rng.Interior.ColorIndex = 36
End Sub
代码解析：
设置工作表当前选定区域单元格内部填充颜色，高亮显示活动单元格所在的行和列。
a) 第4行代码使用Union方法将所选单元格所在的行、列连接起来成为一个区域。
b)使用此方法时，工作表中所有设置的单元格内部填充颜色将会被清除。（不包括通过条件格式设置的单元格内部填充颜色），同时无法在工作表中实现复制粘贴功能。
运行结果：
今日内容回向：
1 Worksheet_SelectionChange 动作的意义是什么？
2 Application.Union(Target.EntireColumn, Target.EntireRow) 的意义是什么？
3 读者是否按照截图实现了运行效果呢？