请教条件格式如何超过三个条件

fortran

excel想做这样一件事，A3至L5单元格区域中的数字如果和 A1到F1的任何一个相同，A3至L5单元格区域相同的那个单元格就自动填充红色。

用条件格式，只能设三个条件，但我有6个条件，请问什么办，请高手解答。或用宏？或vba？

[此贴子已经被作者于2006-11-17 17:09:16编辑过]

方漠

彩迷,又见彩迷!

Sub ChangeColor()
Dim Rng As Range, I As Byte
Set Rng = Range("A35")
For I = 1 To 6
    Rng.Find(What:=Cells(1, I).Value).Activate
    ActiveCell.Interior.Color = vbRed
Next I
End Sub

fortran

谢谢，i用小写通过。