EXCEL中如何用VBA将某个单元格填充颜色(高亮显示)?

方法一

如你的数据在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 if

next x

end sub

方法二：

简单一点，假设数据在A1~A10，取6这个值

sub xxx()

for i=1 to 10

if cells(i,1)=6 then cells(i,1).interior.colorindex=3

next i

end sub

方法三：

如果你的Excel版本是2003版，那么你只能用系统预设的56色。用VBA代码实现的其他填充色会被转换为和这56色最接近的一种。

如果使用VBA,代码如下: