Question

excel VBA 中代码运行了一小半就不运行了，没有报错，在线等

Sub test() MaxC = Range("s1:s366").End(xlDown).Column Range(Cells(1, 19), Cells(MaxC, 19)).Interior.ColorIndex = xlNone For i = 1 To MaxC DateW = Format(Cells(i, 19).Text, "aaaa") If DateW = "星期六" Or DateW = "星期日" Then Cells(i, 19).Interior.ColorIndex = 44 End If NextEnd Sub

PS：日期那列就是S列！

Answer 1

MaxC = Range("s1:s366").End(xlDown).Column
改成

MaxC = Range("s1:s366").End(xlDown).row

你这用条件格式就可以了，根本不需要用到宏， 杀鸡 用牛刀

追问

谢谢大神，但是用条件格式怎么做啊？没找到啊！

追答

条件格式里直接设置 weekday(单元格,2)>5 颜色标黄色， 就是你要的结果 weekday(单元格,2) 就是星期几

Excel 2007 操作方法：
选中 S列， 菜单栏 开始--- 条件格式 新建规则 使用公式 输入 =weekday(S1,2)>5
格式 填充选黄色 就可以了