Excel Vba使数值为0的所在行改变颜色

利用条件格式，我们可以按设定的条件对excel单元格进行格式设置。比如将库存为0 的行显示为红色。
excel虽然处理很多数据都很方便，但是如果数据量大了，会比较卡顿。用条件格式更加会闪烁。这里我们通过自定义函数，用vba灵活处理值为0的行改变颜色

1508749138753185.png

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