編按：

哈嘍，大家好~在Excel中可以通過(guò)篩選來(lái)隱藏特定行只顯示需要值，那么，如何通過(guò)篩選來(lái)隱藏特定列只顯示需要列的數(shù)據(jù)呢？Excel并沒(méi)有自帶這個(gè)功能，今天就來(lái)教大家篩選列數(shù)據(jù)。教程運(yùn)用VBA代碼，設(shè)置列的隱藏屬性Hidden為真TURE實(shí)現(xiàn)篩選；再設(shè)置隱藏屬性Hidden為假FALSE恢復(fù)列的顯示。

在Excel中通過(guò)添加篩選可以方便地隱藏特定行數(shù)據(jù)，不過(guò)很多時(shí)候我們需要篩選隱藏列數(shù)據(jù)。比如下面是某公司各產(chǎn)品1~6月份的銷售數(shù)據(jù)。為了方便比較各A、C產(chǎn)品3、4、5月的數(shù)據(jù)，現(xiàn)在需要隱藏1、2、6月和以及C產(chǎn)品的數(shù)據(jù)。

常規(guī)的方法是通過(guò)手動(dòng)隱藏行、列來(lái)實(shí)現(xiàn)。
今天教大家做單擊按鍵即可輕松實(shí)現(xiàn)列、行的自動(dòng)隱藏，來(lái)看看效果：

下面一起來(lái)看看這樣的效果是怎么制作出來(lái)的吧！

一、 準(zhǔn)備數(shù)據(jù)

在Excel文檔按提示輸入銷售統(tǒng)計(jì)數(shù)據(jù)，接著選擇數(shù)據(jù)，點(diǎn)擊“插入→圖表→柱形圖”，按提示完成圖表的設(shè)計(jì)。

二、 插入形狀

行列數(shù)據(jù)的隱藏是通過(guò)點(diǎn)擊插入的形狀，然后再將形狀關(guān)聯(lián)到指定宏實(shí)現(xiàn)。因此首先要設(shè)計(jì)形狀，定位到B1單元格，點(diǎn)擊“插入→形狀→矩形”。插入一個(gè)矩形后調(diào)整它的大小，圖形的高度和單元格一致，寬度則比B1單元格略小，并在其上添加對(duì)應(yīng)的文字。

接著再定位到B1單元格，然后向右填充到G1單元格，然后選中B~G列，調(diào)整列寬到和插入的形狀一致，使得插入的圖形可以完全覆蓋下方的單元格。

之后，用相同的方法在A2、A3、A4單元格插入形狀，并且修改對(duì)應(yīng)的顯示文字，完成插入形狀的操作。

小提示：

如果需要選中所有形狀，比如將形狀填充全部變?yōu)辄S色，則在單擊任意形狀后按Ctrl+A全選形狀并設(shè)置填充顏色即可。

三、 添加代碼

1. B列隱藏代碼設(shè)計(jì)

按下Alt+F11打開VB編輯窗口，點(diǎn)擊“插入→模塊”，然后輸入下列的代碼，制作一個(gè)名為“一月”的宏：

Sub 一月()

For i = 2 To 7

If Cells(1, i) = "1月" Then Cells(1, i).EntireColumn.Hidden = True

Next

End Sub

代碼解釋：

先設(shè)置一個(gè)變量i（表示列號(hào)的變量），然后從第2列遍歷到第7列（即B~G列）。如果其中第一行的單元格數(shù)值等于“1月”，那么就將該單元格所在的列“Hidden”（隱藏）屬性設(shè)置為TRUE（表示將其隱藏）。

2.其他列代碼設(shè)計(jì)

操作同上，繼續(xù)制作其他月份的隱藏代碼，只要更改宏的名稱為“二月”、“三月”……、 “If Cells(1, i) =”后的代碼也更改為對(duì)應(yīng)月份，完成列隱藏代碼的設(shè)置。

3.行隱藏和復(fù)原代碼設(shè)計(jì)

操作同上，設(shè)置一個(gè)變量j，行隱藏屬性代碼為“Cells(j, 1).EntireRow.Hidden = True”）。最后再設(shè)置一個(gè)“取消隱藏”代碼（添加i、j兩個(gè)變量，并將行列屬性設(shè)置為“False”），至此完成所有代碼的設(shè)置。

四、關(guān)聯(lián)宏

返回Excel窗口，右擊B2單元格插入的形狀選擇“指定宏”，接著在彈出的宏列表選擇“一月”，點(diǎn)擊“確定”完成關(guān)聯(lián)。這樣點(diǎn)擊插入的“一月”形狀，B列就會(huì)變自動(dòng)隱藏了。

操作同上，依次點(diǎn)擊其他形狀，將其分別關(guān)聯(lián)到對(duì)應(yīng)的宏名。
當(dāng)需要篩選指定列、行數(shù)據(jù)時(shí)，我們只要點(diǎn)擊相應(yīng)的形狀圖標(biāo)即可隱藏不需要的列或行數(shù)據(jù)。點(diǎn)擊“復(fù)原”形狀則可以恢復(fù)到原來(lái)的顯示。

五、舉一反三

如上所述，通過(guò)設(shè)置指定的代碼并關(guān)聯(lián)到形狀中，就可以實(shí)現(xiàn)指定列的隱藏。我們可以通過(guò)設(shè)置不同的代碼來(lái)實(shí)現(xiàn)更多篩選效果。比如公司規(guī)定各產(chǎn)品的月銷售額如果小于50萬(wàn)，那么就是不合格，現(xiàn)在篩選需要顯示合格月份數(shù)據(jù)。

為了方便查看不合格的月份數(shù)據(jù)，可以選中B2:G4區(qū)域，點(diǎn)擊“開始→條件格式→小于”，設(shè)置數(shù)據(jù)小于50的單元格填充紅色?？梢钥吹?span>1、2、3、4月份數(shù)據(jù)都是不合格的。

接著同上輸入下列的代碼生成“篩選”宏：

Sub 篩選()

For i = 2 To 7

For j = 2 To 4

If Cells(j, i) < 50 Then Cells(j, i).EntireColumn.Hidden = True

Next

Next

End Sub

代碼解釋：

先設(shè)置兩個(gè)列、行的變量，然后在指定區(qū)域遍歷，如果某個(gè)單元格的數(shù)值小于50，那么就將單元格所在的列屬性設(shè)置為隱藏。

同上再插入一個(gè)名為“篩選”的形狀并關(guān)聯(lián)到“篩選”宏，這樣點(diǎn)擊一下“篩選”就可以完成數(shù)據(jù)的篩選操作了。

好的，以上就是今天的所有內(nèi)容，小伙伴們學(xué)會(huì)了嗎？需要課件聯(lián)系的同學(xué)，可以掃碼進(jìn)群領(lǐng)取喲。

本文配套的練習(xí)課件請(qǐng)加入QQ群：902294808下載。

做Excel高手，快速提升工作效率，部落窩教育《一周Excel直通車》視頻和《Excel極速貫通班》直播課全心為你！

掃下方二維碼關(guān)注公眾號(hào)，可隨時(shí)隨地學(xué)習(xí)Excel：

相關(guān)推薦：

Excel數(shù)據(jù)篩選專題篇：篩選數(shù)據(jù)的技巧都在這了！

Excel篩選后序號(hào)不連續(xù)怎么辦？

Excel教程：如何制作帶有層次和透視感的圖表？

八大查找函數(shù)公式，輕松搞定數(shù)據(jù)中的多條件查找

版權(quán)申明：

本文作者ITFANS；同時(shí)部落窩教育享有專有使用權(quán)。若需轉(zhuǎn)載請(qǐng)聯(lián)系部落窩教育。