隐藏任何高于1的值

Question

我正在使用下面的宏来隐藏任何高于1的值。写第10列是为了比较两个日期，并隐藏日期差超过1的任何值。

我最初将第10列中的函数写为

=IF($G$1-I4>0, $G$1-I4,"0" )

我不得不将其调整为

=IF(I7="","",IFERROR($G$1-I7,""))

以校正具有空白值的计算错误。

在我调整公式之前，宏按预期工作，但现在它隐藏了第10列中包含公式的所有行。

g1=今天的日期i4=完成日期(如果适用(

Sub HURows()
BeginRow = 4
EndRow = 600
ChkCol = 10
For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value > 1 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
Else
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
End If
Next RowCnt
End Sub

Answer 1

为什么不尝试自动筛选？

Sub Filter()
Rows("3:3").AutoFilter Field:=10, Criteria1:="<1", Operator:=xlAnd

End Sub

(我假设第三行是你的标题行(