如题所述
可以使用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
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
温馨提示：答案为网友推荐，仅供参考
第1个回答 2019-12-11
如果单元格位置固定且不需要条件判断的话，可以将需要填充的工作表设置为工作组
方法：按住
CRLT
，然后鼠标点选需要填充的工作表，完成后操作其中一个工作表即可同时应用到所有选中的工作表，
如果需要判断的话，可以用VBA来做。这个你得说清楚怎么去判断是否需要填充。
方法：按住
CRLT
，然后鼠标点选需要填充的工作表，完成后操作其中一个工作表即可同时应用到所有选中的工作表，
如果需要判断的话，可以用VBA来做。这个你得说清楚怎么去判断是否需要填充。
