Excel多工作表条件格式问题：需高亮50%以上单元格排除美元值

原代码存在两个核心问题：一是用xlBetween判断0.5到1.5的范围，不符合你"高亮数值高于50%"的需求；二是未排除A、B、C列的美元值，导致这些列的小额货币单元格被误高亮。

下面是修正后的代码：

Sub AddCF()
    Dim w As Worksheet
    Dim targetRange As Range
    
    For Each w In Worksheets
        ' 清除已有条件格式，避免重复叠加
        w.UsedRange.FormatConditions.Delete
        
        ' 选取除A、B、C列外的已使用区域
        Set targetRange = w.UsedRange.Offset(0, 3).Resize(w.UsedRange.Rows.Count, w.UsedRange.Columns.Count - 3)
        
        ' 添加条件格式：数值大于0.5（即50%）
        With targetRange.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreater, Formula1:="=0.5")
            .Font.Color = vbWhite
            .Font.Bold = True
            .Interior.Color = vbRed
        End With
    Next w
End Sub

关键修改说明： #

• 排除美元列：通过Offset(0,3)跳过前3列（A、B、C），再用Resize调整区域宽度，只处理后续非货币列
• 修正判断逻辑：将xlBetween改为xlGreater，只筛选数值大于0.5的单元格，精准匹配"高于50%"的需求
• 清理旧格式：添加FormatConditions.Delete，避免多次运行代码后条件格式重复叠加

如果你的百分比列起始位置不是第4列，可调整Offset(0,3)中的数字（比如要排除前2列就改成Offset(0,2)）。

内容的提问来源于stack exchange，提问作者Amy Frysauce