文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持. 我有个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 = - .TintAndShade = 0 End With Range("n9").Select With Selection.Font .Color = - .TintAndShade = 0 End With Range("h8").Select With Selection.Font .Color = - .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 = - .TintAndShade = 0 出现运行时438错误，对象不支持该属性或方法。非常感谢你帮助。 文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持. 回答 无语……我在自己电脑上运行过的，07是可以的。不过我得承认这句.TintAndShade = 0是电脑生成的。 如果在这句出错的话，可以删除它，因为变红色的语句是：.Color = - 我整理一下，你再试试： 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 = - 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 本文来源：https://www.wddqw.com/doc/d0ab72aa1611cc7931b765ce05087632301274c1.html