在Excel操作中，我們有時(shí)需要自動(dòng)的隱藏某些空列，如何自動(dòng)的實(shí)現(xiàn)呢?這就需要用到VBA代碼，具體怎么做?對(duì)于新手來(lái)說(shuō)還是有一定難度，怎么辦?下面學(xué)習(xí)啦給大家分享Excel2007將無(wú)數(shù)據(jù)空列隱藏的方法。

　　Excel2007將無(wú)數(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ǔ)句必須在下一行