便于查看指定单元格所在行和列，vba

Sub d()
  
Cells.Interior.Pattern = xlNone
Selection.EntireRow.Interior.Color = RGB(250, 230, 200)
Selection.EntireColumn.Interior.Color = RGB(250, 230, 200)

End Sub

 

图例：

来源：https://blog.csdn.net/pySVN8A/article/details/100528222