在一个excel表中，按不同的变量筛选异常数据，比如按第一列的指标算，有4个异常值；按第二列算，又有3个；不同列选出的异常值并不一样，那么我先按不同的列找出异常值后，在各列中标记出黄色，然后我想用一个宏把左右的异常值找出。
思路就是，逐行进行扫描，只要这一行有一个单元格为黄色，则这一行全部标记为绿色。做了简单的一个宏，但运行不出来，请高手指点。



Sub 查找颜色()
'' 查找颜色 宏
LastRow = Range("A65536").End(xlUp).Row
k = 6                       '假设第k列有0值，需要检测
For i = k To LastRow
    If Cells(i, k).Interior.ColorIndex = 8 Then     '红3 绿4 蓝5 黄6 紫7 青8 灰16
     Cells(i, k).Resize(1, 11).Interior.ColorIndex = 4  '红3 绿4 蓝5 黄6 紫7 青8 灰16
    End If
Next i
'
End Sub