Excel2007怎么隱藏?zé)o數(shù)據(jù)的空列
Excel2007怎么隱藏?zé)o數(shù)據(jù)的空列
在Excel操作中，我們有時(shí)需要自動(dòng)的隱藏某些空列，如何自動(dòng)的實(shí)現(xiàn)呢?這就需要用到VBA代碼，具體怎么做下面小編來(lái)告訴你吧。
Excel2007隱藏?zé)o數(shù)據(jù)的空列的步驟：
打開(kāi)Excel文件，設(shè)置表單控件按鈕并明確要隱藏列的數(shù)據(jù)范圍。
同時(shí)按下ALT+F11鍵，在VBA代碼書(shū)寫(xiě)界面寫(xiě)下VBA代碼，如下。
保存后，返回Excel SHEET表內(nèi)，將表單按鈕指定到宏。
點(diǎn)擊按鈕，直接運(yùn)行宏代碼，運(yùn)行后的效果如下，空列被隱藏了起來(lái)。
對(duì)VBA代碼的解釋?zhuān)[藏區(qū)域內(nèi)的空列。
Sub 運(yùn)行代碼()
Dim Cel As Range
For Each Cel In Worksheets("數(shù)據(jù)").Range("A1:Z1")
If Cel = "" Then
Cel.EntireColumn.Hidden = True
Else
Cel.EntireColumn.Hidden = False
End If
Next
End Sub
-------------------------------------------------------
1.Sub后為宏的名稱(chēng)，也為指定的名稱(chēng)
2.將Cel屬性定義為范圍
3.在數(shù)據(jù)工作表A1：Z1范圍內(nèi)逐個(gè)的查找
4.For next，如果單元格為空，則所在整列隱藏，如果不為空，則整列不隱藏。
5.If then else end if語(yǔ)句
6.End sub結(jié)束宏
7.EntireColumn整列 EntireColumn整行 Hidden隱藏
8.Then 和Else的語(yǔ)句必須在下一行