如何用VBA FormatCondition高效跳过首行设置条件格式？

我完全懂你这种烦恼——单独给首行设置白色来规避条件格式，不仅麻烦还不够高效。这里有两个更优雅的解决方案，帮你轻松跳过标题行：

方法1：直接缩小条件格式的应用范围 #

最直观高效的方式就是只把条件格式应用到第二行及以下的数据行，完全避开标题行。这样不用额外处理首行，性能也更好（尤其大数据量时）：

Dim lastRow As Long
With y.Sheets(Sh)
    ' 获取Y列最后一行有数据的行号
    lastRow = .Cells(.Rows.Count, "Y").End(xlUp).Row
    ' 给Y2到YlastRow添加条件格式
    With .Range("Y2:Y" & lastRow).FormatConditions.Add(Type:=xlExpression, Formula1:="=NOT(ISBLANK(Y2))")
        .Interior.Color = rgbWhite ' 替换成你需要的高亮颜色
    End With
End With

如果想统一设置整列但自动排除首行，也可以先给整列加条件格式，再修改应用范围：

With y.Sheets(Sh).Range("Y:Y").FormatConditions.Add(Type:=xlExpression, Formula1:="=NOT(ISBLANK(Y1))")
    .Interior.Color = rgbWhite
    ' 把应用范围改为第二行到最后一行
    .AppliesTo = y.Sheets(Sh).Range("Y2:Y" & y.Sheets(Sh).Cells(y.Sheets(Sh).Rows.Count, "Y").End(xlUp).Row)
End With

方法2：在条件公式中排除首行 #

如果你更倾向于保留整列的应用范围，可以在条件公式里加入行号判断，让首行不触发格式规则：

With y.Sheets(Sh).Range("Y:Y").FormatConditions.Add(Type:=xlExpression, Formula1:="=AND(ROW()>1, NOT(ISBLANK(Y1)))")
    .Interior.Color = rgbWhite ' 替换成你需要的高亮颜色
End With

公式里的ROW()>1会过滤掉首行（行号为1），只有行号大于1的单元格才会检查后面的NOT(ISBLANK(Y1))条件。

小提示 #

不用单独给首行设置白色格式——只要条件格式不影响首行，标题行的原有格式会自动保留，省去额外的代码步骤。

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