Excel表格中,如何自动隐藏行

发布网友发布时间：2022-05-01 08:31

共3个回答

热心网友时间：2022-06-26 20:24

插入一个按钮，指定宏如下：
Sub aa()
Dim n& '定义变量i
For n = 1 To Range("H65536").End(xlUp).Row '建立循环从第1行开始到H列最后一个非空单元格
If Cells(n, 8) <= 0 Then '判断H列的值是否小于等于0
Rows(n).EntireRow.Hidden = True '满足条件，隐藏该行
End If
Next n
End Sub

热心网友时间：2022-06-26 20:25

用数据面板下的筛选-自定义筛选-大于0就能达到你的目的了，如果这张表是在不断更新的，你只需要点一下数据面板下筛选右边的“重新应用”就可以了。

热心网友时间：2022-06-26 20:25

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Long
For i = 4 To [B65536].End(xlUp).Row
If Cells(i, 8) <= 0 Then
Rows(i).EntireRow.Hidden = True
Else
Rows(i).EntireRow.Hidden = False
End If
Next i
End Sub