EXCEL高亮当前行跟列的VBA编程操作

1、直接在开发工具打开VB编程界面，或用ALT+F11快速调出编程界面

2、如图位置，双击sheet1，打开工程管理器

3、选中worksheet

4、复制代码

--------复制代码开始--------

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

Dim Rng As Range 

Set Rng = Target.Range("a1") '选中目标单元格A1

Cells.Interior.ColorIndex = 0 '清除所有背景色 

Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色 

Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色 

End Sub

--------代码结束--------

5、ctil+s保存

回到录制该变成的工作簿

6、仅应用于选中的工作簿，无法应用于整个表格

若想应用所有表格，建议使用开启个人宏工作簿