excel行着色(带隐藏属性，就是选中该行才会有颜色）

这得用宏。右键点该工作表的名字（在工作簿的左下方），查看代码，在新窗口粘贴如下代码：
Dim xRow As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Line1
If xRow = 0 Then xRow = 200
Rows(xRow).Interior.Pattern = xlNone
Rows(Target.Range("A1").Row).Interior.Color = vbGreen
xRow = Target.Range("A1").Row
Line1: End Sub