Excel中用按钮怎么实现隐藏空白行和取消隐藏?

2025-03-04 19:24:38
推荐回答(3个)
回答1:

  1. 打开Excel后按照如下路径启用开发工具:

文件-->选项-->自定义功能区-->然后在右侧开发工具前勾选(如下图)

2. 按ALT+F11打开VBE(如下图)

3. 然后点菜单中的插入-->模块,再将如下代码粘贴入插入的模块中:

Sub 隐藏空白行()
Dim rng As Range
For Each rng In Range([a4], Cells(Rows.Count, 1).End(xlUp))
If rng = "" Then
rng.EntireRow.Hidden = True
End If
Next
End Sub


Sub 取消隐藏空白行()
Dim rng As Range
For Each rng In Range([a4], Cells(Rows.Count, 1).End(xlUp))
If rng = "" Then
rng.EntireRow.Hidden = False
End If
Next
End Sub

Sub 取消所有隐藏()

Rows.Hidden = False

Columns.Hidden=False
End Sub

4. 这时即可隐藏并关闭VBE窗口

5. 点击开发工具的插入-->按钮窗体(如下图)

6. 在想要放按钮的区域单击鼠标左键并拖动绘制按键,松开后会弹出对话框,在里面选择隐藏空白行,然后确定。

7. 然后在绘制的按钮上右击选择编辑文字,输入隐藏空白行后,在空白处单击下鼠标即。

8. 其他两个按钮照如下6-7两条制作即可。

回答2:

增加一列 项目状态栏,然后需要看什么状态的项目筛选就行了。

回答3:

第一步:选择你需要隐藏的列
第二步:选择“数据”,再选“组合”
第三步:点击已经组合后出现的“-”,就可以隐藏
第四步:隐藏后会出现“+”,点一下就取消隐藏了