Excel2007如何將無數(shù)據(jù)空列隱藏
在Excel操作中,我們有時(shí)需要自動(dòng)的隱藏某些空列,如何自動(dòng)的實(shí)現(xiàn)呢?這就需要用到VBA代碼,具體怎么做?對(duì)于新手來說還是有一定難度,怎么辦?下面學(xué)習(xí)啦給大家分享Excel2007將無數(shù)據(jù)空列隱藏的方法。
Excel2007將無數(shù)據(jù)空列隱藏的方法
打開Excel文件,設(shè)置表單控件按鈕并明確要隱藏列的數(shù)據(jù)范圍。
同時(shí)按下ALT+F11鍵,在VBA代碼書寫界面寫下VBA代碼,如下。
保存后,返回Excel SHEET表內(nèi),將表單按鈕指定到宏。
點(diǎn)擊按鈕,直接運(yùn)行宏代碼,運(yùn)行后的效果如下,空列被隱藏了起來。
對(duì)VBA代碼的解釋,隱藏區(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后為宏的名稱,也為指定的名稱
2.將Cel屬性定義為范圍
3.在數(shù)據(jù)工作表A1:Z1范圍內(nèi)逐個(gè)的查找
4.For next,如果單元格為空,則所在整列隱藏,如果不為空,則整列不隱藏。
5.If then else end if語句
6.End sub結(jié)束宏
7.EntireColumn整列 EntireColumn整行 Hidden隱藏
8.Then 和Else的語句必須在下一行
猜你感興趣: