如你的数据在A列,代码如下。sub aa ()for x =1 to range("A65536").end(xlup).row'建立循环 if cells(x,1)=6 then'判断单元格值 cells(x,1).interior.colorIndex = 3'单元格值等于6时,该单元格填充红色 end ifnext xend sub