根据Excel中的某一列的分别加颜色

Sub Macro1()
     Dim i As Integer
     Dim x As String
     For i = 1 To Sheet1.UsedRange.Rows.Count
        With Sheet1.Rows(i).Interior
             x = Cells(i, 3)
             If x = "是" Then
                Call Macro2(i, 3, 15773696)
             ElseIf x = "否" Then
                Call Macro2(i, 3, 5296274)
             End If
         End With
     Next
 End Sub

Sub Macro2(x As Integer, y As Integer, colorIndex As Long)
    Range(Cells(x, y), Cells(x, y)).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .color = colorIndex
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G18").Select
End Sub


或
Sub Macro1()
     Dim i As Long
     Dim x As String
     Columns(3).Interior.ColorIndex = xlNone
     For i = 1 To Sheet1.UsedRange.Rows.Count
        With Sheet1.Rows(i).Interior
             x = Cells(i, 3)
             If x = "是" Then
             Cells(i, 3).Interior.ColorIndex = 5
             End If
         End With
     Next
 End Sub