可以使用以下代码来自动填涂颜色:
Sub ColorFill()
'设置工作表和区域
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Dim rangeToColor As Range
Set rangeToColor = ws.Range("A1:C10")
'设置填充颜色
Dim fillColor As Integer
fillColor = RGB(255,0,0) '设置为红色
'循环遍历区域,为每个单元格填充颜色
Dim cell As Range
For Each cell In rangeToColor
cell.Interior.Color = fillColor
Next cell
End Sub
上述代码将工作表“Sheet1”中的A1:C10区域填充为红色。在代码中,您可以更改工作表和区域以适应您自己的需求,以及更改fillColor变量以更改填充颜色。


- 相关评论
- 我要评论
-