如何在VBA中对整列应用条件格式

Sub ApplyConditionalFormatting()
    Dim rng As Range
    Dim formatConditions As FormatConditions
    Dim condition As FormatCondition
    
    ' 选择要应用条件格式的整列
    Set rng = Range("A:A")
    
    ' 创建条件格式
    Set formatConditions = rng.FormatConditions
    
    ' 添加颜色标度条件格式
    Set condition = formatConditions.Add(Type:=xlColorScale)
    
    ' 设置条件格式的属性
    With condition
        .ColorScaleCriteria(1).Type = xlConditionValueLowestValue
        .ColorScaleCriteria(1).FormatColor.Color = RGB(255, 0, 0)
        .ColorScaleCriteria(2).Type = xlConditionValuePercentile
        .ColorScaleCriteria(2).Value = 50
        .ColorScaleCriteria(2).FormatColor.Color = RGB(255, 255, 0)
        .ColorScaleCriteria(3).Type = xlConditionValueHighestValue
        .ColorScaleCriteria(3).FormatColor.Color = RGB(0, 255, 0)
    End With
    
    ' 应用条件格式
    formatConditions.Apply
    
End Sub