Excel十字交叉高亮显示如何实现？

1、举例：我们还是以名动江湖的武当七侠为例来说明这个功能如何实现，如图：

2、 点击开发工具菜单——visual basic ，如图：

3、 得到如图的thisworkbook，进行代码编辑；

4、 输入代码如下：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

 Cells.FormatConditions.Delete

  With Target.EntireColumn

  .FormatConditions.Add xlExpression, , "=true"

  .FormatConditions(1).Interior.ColorIndex = 36

  End With

  With Target.EntireRow

  .FormatConditions.Add xlExpression, , "=true"

  .FormatConditions(2).Interior.ColorIndex = 36

   End With

End Sub

5、 点击视图按钮，如图：

6、 另存为一个启用宏的工作簿，如图：

7、实现了最后的效果，十字交叉高亮显示，如图：

8、喜欢的朋友记得收藏点赞啊！！！！！