条件格式化 - 错误的行

Question

我想创建一个重置工作表上所有条件格式的宏，但由于某种原因，代码最终指向页面底部。从内存来看，我之前已经添加了这个问题，在家里工作得很好，但是同样的代码在工作中没有用。

有什么建议吗？

Public Function ResetHoursSheet()
    With Worksheets("Hours").Range("$H2:$H2000")
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$D2 = ""A/L"""
        .FormatConditions(1).Interior.ColorIndex = 2
    End With
End Function

代码运行后，条件格式显示此...

=$D1048570 = "A/L"

Answer 1

使用：

Worksheets("Hours").Range("$H2:$H2000").ClearFormats