1、以下列隐藏了若干行列的数据为例,

2、插入一个形状作为启动代码的控制器。


3、为形状指定相应的宏代码,单击新建。


4、此时会切换到VBA界面。

5、在弹出的模块中输入相应的代码:
Sub 矩形1_Click()
Rows().Select
Selection.EntireRow.Hidden = False
Columns().Select
Selection.EntireColumn.Hidden = False
Range("a1").Select
End Sub

6、关闭VBA界面,回到excel窗口。

7、点击按钮即可将隐藏的行列内容显示出来。

