excel vba 改变单元格颜色-Excel Vba使数值为0的所在行改变颜色

利用条件格式，我们可以按设定的条件对excel单元格进行格式设置。比如将库存为0 的行显示为红色。

excel虽然处理很多数据都很方便，但是如果数据量大了，会比较卡顿。用条件格式更加会闪烁。

这里我们通过自定义函数，用vba灵活处理值为0的行改变颜色

详细源码：

Sub 变色()
    Dim i&, k&, arr '定义i，k，arr数组
    k = [a200000].End(xlUp).Row '判断a列的最后一个不为空的单元格
    arr = Sheets("sheet2").Range("a1:c" & k) '把区域赋值给数组
    For i = UBound(arr) To 1 Step -1 'ubound代表arr的下界
        If arr(i, 2) = 0 Then '判断第3列的每个值
           Rows(i).Interior.ColorIndex = 3 '令该行变红色
        End If
    Next
End Sub