Excel 使用除少数单元格外的其他单元格

我试图给C列中的单元格进行颜色编码，一个表示“是”，一个表示“否”。下面的代码可以工作。但我想让它给细胞C4和向下着色，而不是C1、C2和C3。有什么建议吗？还有什么技巧可以让我根据另一张工作表的结果对单元格进行颜色编码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each cell In ActiveSheet.UsedRange.Columns("C").Cells
    If Len(cell.Value) > 2 Then
       cell.Interior.ColorIndex = 3
    ElseIf Len(cell.Value) < 3 Then
    cell.Interior.ColorIndex = 4
        End If
    Next
End Sub

Private子工作表\u selection更改（ByVal目标作为范围）
对于ActiveSheet.UsedRange.Columns（“C”）单元格中的每个单元格
如果Len（单元格值）>2，则
cell.Interior.ColorIndex=3
ElseIf Len（单元格值）<3然后
cell.Interior.ColorIndex=4
如果结束
下一个
端接头

使用：

---

为什么不加上额外的if子句呢

即：

Private子工作表\u selection更改（ByVal目标作为范围）
对于ActiveSheet.UsedRange.Columns（“C”）单元格中的每个单元格
如果单元格.第1行和单元格.第2行和单元格.第3行，则
如果Len（单元格值）>2，则
cell.Interior.ColorIndex=3
ElseIf Len（单元格值）<3然后
cell.Interior.ColorIndex=4
如果结束
如果结束
下一个
端接头

切勿使用USEDRANGE。你应该看看这个谢谢=）很好用=）

N = Cells(Rows.Count, "C").End(xlUp).Row
For Each cell In Range("C4:C" & N)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each cell In ActiveSheet.UsedRange.Columns("C").Cells
    If cell.Row <> 1 And cell.Row <> 2 And cell.Row <> 3 Then
        If Len(cell.Value) > 2 Then
           cell.Interior.ColorIndex = 3
        ElseIf Len(cell.Value) < 3 Then
            cell.Interior.ColorIndex = 4
        End If
    End If
Next
End Sub