1、打开Excel文件，设置表单控件按钮并明确要隐藏列的数据范围。
2、同时按下ALT+F11键，在VBA代码书写界面写下VBA代码，如下。
3、保存后，返回Excel SHEET表内，将表单按钮指定到宏。
4、点击按钮，直接运行宏代码，运行后的效果如下，空列被隐藏了起来。
5、对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的语句必须在下一行
