代码如下
For x = 1 To 300
For y = 1 To 10
If Cells(x, y).Value Like E01 Or Cells(x, y).Value Like "星期" Then
Else
Cells(x, y).Interior.ColorIndex = 3
End If
Next y
Next x
含有内容E01或者星期 的单元格被涂色。
但是E01加上"，全部格子被涂色。
最重要的 为什么写的else里涂色啊，我这个判断是不是写的有问题。

问题找到了，一定要用擅于使用F8，like一定要通配符*的，不然就是全等了。
而不加""代表的是变量，由于没有赋值默认为空

楼主自查还挺快的，恭喜恭喜！

比较喜欢先用数组取值，在循环查找。