EXCEL中如何用VBA将某个单元格填充颜色，也就是高亮显示。

Question

比喻有一列数据1，2，4，6，6，8 我要把等6的单元格用红色标出，代码如何写。谢谢

Answer 1

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

Answer 2

Excel 97中工作表是由行和列组成的二维表格，我们可以通过系统提供的语句activesheet.cells(I,j)，将当前工作表中的第I行第j列所在的单元格中的数据取出追问

这个我知道，但如何把这个单元格用特别的颜色标出呢？

Answer 3

简单一点，假设数据在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