在表格名称“Sheet1、Sheet2”那里,点击右键,查看代码,把下面这段代码粘贴进去。然后回到表格中来就可以实现你要的目的了。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows.Interior.ColorIndex = 0
x = ActiveCell.Row
y = ActiveCell.Column
Rows(x).Interior.ColorIndex = 6
Columns(y).Interior.ColorIndex = 6
End Sub
excel必备工具箱