我有个excel工作薄里有10个工作表,我想把其中的部分单元格字体变成红色或单元格填充颜色.docVIP

我有个excel工作薄里有10个工作表，我想把其中的部分单元格字体变成红色。 浏览次数：28次悬赏分：5 | 离问题结束还有 11 天 19 小时 | 提问者：剑客wcg 我有个工作薄里有10个工作表，我想把每个表中几个的数据变成红色字体。这10个表的格式都是一样的，而且只有N8、N9、H8是我要变成红色的字体， 用复制粘贴的方法太烦了，而且往后还有很多这类的数据，所以请高手指点一下，看用VBA能不能实现呢？如果有不清楚的地方请指出，我会马上解释的。急急急，在线等！~ Sub macro Dim i i 1 Application.ScreenUpdating False Application.EnableEvents False For i 1 To Worksheets.Count Worksheets i .Activate Range n8 .Select With Selection.Font .Color -1座机电话号码 .TintAndShade 0 End With Range n9 .Select With Selection.Font .Color -1座机电话号码 .TintAndShade 0 End With Range h8 .Select With Selection.Font .Color -1座机电话号码 .TintAndShade 0 End With Next i Application.ScreenUpdating True Application.EnableEvents True End Sub 追问 .TintAndShade 0 End With Range n9 .Select With Selection.Font .Color -1座机电话号码 .TintAndShade 0 出现运行时438错误，对象不支持该属性或方法。非常感谢你帮助。 回答 无语……我在自己电脑上运行过的，07是可以的。不过我得承认这句.TintAndShade 0是电脑生成的。 如果在这句出错的话，可以删除它，因为变红色的语句是：.Color -1座机电话号码 我整理一下，你再试试： Sub macro Dim i i 1 Application.ScreenUpdating False Application.EnableEvents False For i 1 To Worksheets.Count Worksheets i .Activate Range n8,n9,h8 .Select With Selection.Font .Color -1座机电话号码 End With Next i Worksheets 1 .Select Application.ScreenUpdating True Application.EnableEvents True End Sub 单元格填充颜色 Sub macro Dim i i 1 Application.ScreenUpdating False Application.EnableEvents False For i 1 To Worksheets.Count Worksheets i .Activate Range c7,d7,c9,d9,c11,d11,c15,d15,c17,d17,c19,d19,n10,n11,g16,g17,h13,h14,h15,h16,h17,f20,f21,f22,n30 .Select With Selection.Interior .ColorIndex 9 End With Next i Worksheets 1 .Select Application.ScreenUpdating True Application.EnableEvents True End Sub