怎么用vb或vba程序把一个excel工作簿里的多个工作表特定单元格填充颜色

Question

如题所述

Answer 1

这个很简单，问题是特定的单元格是哪些？我假设都是单元格A1，颜色填充红色。
则代码：
Sub 宏1()
Sheets("Sheet1").Select
Range("A1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
以上代码为将SHEET1，SHEET2以及SHEET3三个工作表的A1单元格涂成红色。