方法一如你的数据在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方法二：简单一点，假设数据在A1~A10，取6这个值sub xxx()for i=1 to 10 if cells(i,1)=6 then cells(i,1).interior.colorindex=3next iend sub方法三：如果你的Excel版本是2003版，那么你只能用系统预设的56色。用VBA代码实现的其他填充色会被转换为和这56色最接近的一种。如果你的Excel版本是2007及以上，那么单元格填充色几乎不受限制，你完全可以通过单元格填充的命令实现自定义颜色填充，支持RGB、HSL两种模式，无需借助VBA。
如果使用VBA,代码如下: