excel 为所有工作表的某一单元格填充颜色

Question

如题所述

Answer 1

可以使用VBA来完成，打开工作簿，按Alt+F11,双击左侧工程窗口中的某个工作表，将下面代码复制到右侧的代码窗口，再点击上面的运行按钮，即可对所有工作表中单元格内容为A的单元格填充紫蓝色
sub
FillA()
Dim
rng
As
Range,
i
As
Integer,
iworksheets
As
Integer
iworksheets
=
ThisWorkbook.Sheets.Count
For
i
=
1
To
iworksheets
For
Each
rng
In
Worksheets(i).UsedRange
If
rng
=
"A"
Then
rng.Interior.Colorindex
=17
End
If
Next
rng
Next
i
End
Sub

Answer 2

如果单元格位置固定且不需要条件判断的话，可以将需要填充的工作表设置为工作组
方法：按住
CRLT
，然后鼠标点选需要填充的工作表，完成后操作其中一个工作表即可同时应用到所有选中的工作表，
如果需要判断的话，可以用VBA来做。这个你得说清楚怎么去判断是否需要填充。