excel怎么用vb来进行自动填涂颜色

可以使用以下代码来自动填涂颜色：

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变量以更改填充颜色。

可以使用以下代码来自动填涂颜色：

```vb

Sub ColorFill()

Dim rng As Range

Set rng = Range("A1:E5") '设置需要填涂颜色的范围

For Each cell In rng

If cell.Value > 50 Then '根据条件进行判断

cell.Interior.ColorIndex = 3 '填涂颜色

Else

cell.Interior.ColorIndex = 0 '不填涂颜色

End If

Next cell

End Sub

```

在这个例子中，我们设置了一个需要填涂颜色的范围（A1:E5），然后使用一个循环来遍历每个单元格。我们使用一个条件来判断单元格的值是否大于50，如果是，就填涂颜色；否则，就不填涂颜色。

在这个例子中，我们使用了颜色索引（3代表红色，0代表无颜色）。你可以根据需要使用其他颜色索引或RGB值来填涂颜色。