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

我有个excel工作薄里有10个工作表，我想把其中的部分单元格字体变成红色。

浏览次数：28次悬赏分：5 |离问题结束还有11 天19 小时|提问者：

我有个工作薄里有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 = -16776961

.TintAndShade = 0

End With

Range("n9").Select

With Selection.Font

.Color = -16776961

.TintAndShade = 0

End With

Range("h8").Select

With Selection.Font

.Color = -16776961

.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 = -16776961

.TintAndShade = 0

出现运行时438错误，对象不支持该属性或方法。非常感谢你帮助。

回答

无语……我在自己电脑上运行过的，07是可以的。不过我得承认这

句.TintAndShade = 0是电脑生成的。

如果在这句出错的话，可以删除它，因为变红色的语句是：.Color = -16776961 我整理一下，你再试试：

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 = -16776961

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