选中单元格所在的行变色 Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target .Parent.Cells.Interior.ColorIndex = xlNone .EntireRow.Interior.Color = vbYellow End With End Sub 隔行变色 设置条件格式 =MOD(ROW(),2)=0 选中单元格所在行变色,边框变色 Private Sub Worksheet_Selection...