1.高亮显示当前行：开始---》条件格式---》新建规则---》样式：典型---》使用公式确定要设置格式的单元格---》在文本框中输入公式：
=(cell("row")=row())+(cell("col")=column())
2.ALT+F11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub
原文：https://www.cnblogs.com/atq999/p/13052344.html