Excel2007怎么隐藏空白列
发布时间:2017-05-16 16:40
相关话题
在excel2007中制作报表时,经常会产生一些空白列,有什么方法能够将其隐藏起来吗?下面随小编一起来看看吧。
Excel2007隐藏空白列的步骤
打开Excel文件,设置表单控件按钮并明确要隐藏列的数据范围。

同时按下ALT+F11键,在VBA代码书写界面写下VBA代码,如下。

保存后,返回Excel SHEET表内,将表单按钮指定到宏。

点击按钮,直接运行宏代码,运行后的效果如下,空列被隐藏了起来。

对VBA代码的解释,隐藏区域内的空列。
Sub 运行代码()
Dim Cel As Range
For Each Cel In Worksheets("数据").Range("A1:Z1")
If Cel = "" Then
Cel.EntireColumn.Hidden = True
Else
Cel.EntireColumn.Hidden = False
End If
Next
End Sub
-------------------------------------------------------
1.Sub后为宏的名称,也为指定的名称
2.将Cel属性定义为范围
3.在数据工作表A1:Z1范围内逐个的查找
4.For next,如果单元格为空,则所在整列隐藏,如果不为空,则整列不隐藏。
5.If then else end if语句
6.End sub结束宏
7.EntireColumn整列 EntireColumn整行 Hidden隐藏
8.Then 和Else的语句必须在下一行

Excel2007怎么隐藏空白列的评论条评论