本文使用条件格式+VBA的方法实现高亮当前行列，因为纯VBA似乎会清除原有的高亮格式。效果如下：本文图省事就使用同一种颜色了。

1. 首先最重要的，【选中你期望高亮的单元格区域】，比如可以全选当前sheet的全部区域

2. 然后点击【开始】-【条件格式】-【新建规则】，打开“新建格式规则”对话框

   1. “选择规则类型”选择：【使用公式确定要设置格式的单元格】；
   2. 在“编辑规则说明”下方内输【输入公式】：=OR(CELL("col")=COLUMN(),CELL("row")=ROW())，
      • 也可分两步设置条件格式，分别设置行和列
   3. 然后点击【格式】，打开“设置单元格格式”对话框，设置填充的高亮颜色
      
   4. 然后点击应用，确定，退出对话框。此时点击一个单元格后，【按F9刷新】，可看到效果。

3. 为了自动高亮，可再设置VBA代码。

   1. 按Alt+F11打开VBA窗口

   2. 双击左侧的某个Sheet, 选择应用到Worksheet, 然后输入函数Calculate
      

   3. Ctrl+S保存，可能提示另存为xlsm，但我的Office 2019中保存为xlsx也行。返回sheet即可看到效果，不需要按F9了