如果单元格值为1显示绿色

nnsea

Sub 单元格值为一的单元格填充为绿色()
Dim rg As Range
Dim r As Integer
For Each rg In Range("A1:E20")
If rg = 1 Then
rg.Interior.ColorIndex = 4
End If
Next
End Sub