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



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

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

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



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

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