Excel VBA -循环中单元格的条件格式

Sub ApplyConditionalFormatting()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    '选择要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    '选择要应用条件格式的单元格范围
    Set rng = ws.Range("A1:A10")
    
    '循环遍历单元格范围
    For Each cell In rng
        '检查条件
        If cell.Value > 10 Then
            '应用条件格式
            cell.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="10"
            cell.FormatConditions(1).Interior.Color = RGB(255, 0, 0) '设置背景颜色为红色
        End If
    Next cell
End Sub