excel点击一个单元格，怎么能实现横向和纵向都自动填充颜色？
方法1：代码=聚光灯特效！
实现方法：只需4行主代码，非常简单！
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
.Parent.Cells.Interior.ColorIndex = xlNone
.EntireRow.Interior.Color = vbGreen
.EntireColumn.Interior.Color = vbCyan
.Interior.Color = vbRed
End With
End Sub
但是，它有个缺陷，即：表头内容有颜色填充时，填充色会消失。如下图示：
为了解决这一问题，特推出方法2！
方法2：函数+代码=聚光灯特效
实现方法：
在工作表代码窗口中，输入以下代码：
Private Sub worksheet_selectionchange(ByVal target As Range)
Application.ScreenUpdating = True
End Sub
然后，在活动工作表中输入以下公式：
=(CELL("ROW")=ROW())+(CELL("COL")=COLUMN())
=CELL("address")=ADDRESS(ROW(),COLUMN())
如果真的觉得不好操作又想使用聚光灯，建议下载一个wps在视图中点击阅读模式
内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。
版权声明：文章内容来源于网络，版权归原作者所有，如有侵权请与我们联系，我们将及时删除。
