比喻有一列数据1，2，4，6，6，8 我要把等6的单元格用红色标出，代码如何写。谢谢
如你的数据在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
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
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-05-06
Excel 97中工作表是由行和列组成的二维表格，我们可以通过系统提供的语句activesheet.cells(I,j)，将当前工作表中的第I行第j列所在的单元格中的数据取出追问
这个我知道，但如何把这个单元格用特别的颜色标出呢？
第2个回答 2011-05-06
简单一点，假设数据在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
sub xxx()
for i=1 to 10
if cells(i,1)=6 then cells(i,1).interior.colorindex=3
next i
end sub
