我不想按“Alt F8”来隐藏 0 值行并取消隐藏行 >0
我希望它在数据发生变化时自动执行此操作。
这是用于隐藏/取消隐藏值为 0 的行的 VBA 代码,但同样,它不是自动工作而是手动工作。
Sub HideRows()
Application.EnableEvents = True
On Error Resume Next
For Each c In Range("V13:V898")
If c.Value = 0 Then
c.EntireRow.Hidden = True
ElseIf c.Value >= 0 Then
c.EntireRow.Hidden = False
End If
Next
On Error GoTo 0
Application.EnableEvents = True
End Sub