1、选中数据区，点击开始选项卡，选择条件格式--新建规则
3、然后在下面的公式栏中输入=OR(CELL("row")=ROW(),CELL("col")=COLUMN())，再点击格式
5、这时效果就出来了，但鼠标移动点击其它单元格没有任何反应，需要按下F9刷新才能出效果
7、在代码区域输入下面代码，然后关闭即可自动刷新Private Sub Worksheet_SelectionC茑霁酌绡hange(ByVal Target As Range)If Application.CutCopyMode = False ThenApplication.CalculateEnd IfEnd Sub
