Excel表中如果有些行是标识了颜色，就把它隐藏，ＶＢＡ中怎么实

Excel表中如果有些行是标识了颜色，就把它隐藏，ＶＢＡ中如何实现Sub hiddcolor() If MsgBox("确定结束任务?", vbYesNo) = vbYes Then ActiveWindow.LargeScroll ToRight:=-1 With Selection.Interior .ColorIndex = 35 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End IfEnd Sub用上述函数来给excel行标识颜色为３５，想写另一函数，sheet表从头到尾，如果发现行颜色为35，那么就隐藏该行，至到sheet表结束，如何实现？——解决方案——————————————————–Sub aa()Dim x As LongDim y As IntegerFor x = 1 To 65536 If Rows(x).Interior.ColorIndex = 35 Then Rows(x).Hidden = True End If Next x End Sub销售世界上第一号的产品–不是汽车，而是自己。