這是一個戰(zhàn)斗力爆表，能夠飛速提高篩選效率的宏。
一、廢話不多，先看效果
EXCLE中的篩選功能人人都會，但是啟動篩選功能后，還要手工輸入要篩選的文字。所以這個宏的作用，就在于簡化輸入，鼠標點到什么內(nèi)容，就篩選什么內(nèi)容，提高篩選的效率。
可以在明細賬中按月份和憑證號快速的篩選出憑證。
可以按科目篩選出“銀行存款”的明細賬：
怎么樣，效率是不是大大提高？
這其實就是一個很簡單的宏能夠實現(xiàn)的效果。
二、認識宏
宏是通過計算機語言組織到一起能夠作為獨立命令使用的一系列指令。通俗的說，就是給計算機預設好一系列的命令，然后啟動——執(zhí)行。
并且，可以把宏綁定到了快捷鍵上，通過快捷鍵實現(xiàn)操作。上面的gif動畫就是利用了快捷鍵在啟動宏。所以圖像中看不到任何的操作。
當然，就像磁盤上的文件一樣，宏也要一個儲存的地方。
通常，在我們點擊錄制宏的時候對宏所保存的位置做一個選擇。（新建宏有很多方式，對于新手來講，錄制無疑是最容易上手的方式）
接下來輸入宏的名稱，以及自定義的快捷鍵。這里設置的快捷鍵優(yōu)先級比excel自帶的要高，比如這里的快捷鍵設置為Ctrl C，那下次再按下Ctrl C，出現(xiàn)的將是宏命令，而不再是大家熟知的“復制”功能。
為了避免和EXCEL常用的快捷鍵沖突，我個人使用的是Ctrl T，當然，這會覆蓋原來的“插入表格”這個功能的快捷鍵。
把宏保存在不同的地方，未來在使用的范圍也會有所差別。
個人宏工作簿：宏保存在Personal.xlsb文件上，針對本臺電腦的excel軟件都可以使用（Personal.xlsb文件通常會隨著excel啟動而加載）。
當前工作簿：宏保存在當前工作簿上，僅在當前工作簿打開的情況下可以使用這個宏。
新工作簿：宏保存著新建的工作簿上，只能在新建工作簿打開的時候才能發(fā)揮作用。
點擊確定以后，發(fā)現(xiàn)對話框消失了。這個時候，已經(jīng)進入了錄制宏的狀態(tài)，在EXCEL上的行為都會被計算機翻譯成宏語言記錄下來。比如我們試著點一下A1單元格。然后再到錄制宏的位置上找到停止錄制。
停止錄制以后，我們就已經(jīng)完成了一次錄制宏。
再到上圖里點擊查看，可以看到自己錄制的宏，然后點擊編輯，進入編輯菜單（因為我Personal上已經(jīng)錄制過了，所以在這里我保存的位置是單簽工作簿，對于首次錄制的同學而言，可以根據(jù)需要選擇把宏保存在當前工作簿或者Personal工作簿上）。
可以看到錄制的動作“點一下A1單元格”。
Range('A1').Select
翻譯過來就是：范圍（A1單元格）.選擇
三、改造宏
這個時候我們的電腦上已經(jīng)有了一個宏。下一步我們要做的，就是把
Range('A1').Select
這個宏命令替換成我們GIF動圖中的宏命令。
復制下面的命令，把Range的那條命令覆蓋掉。
Dim k As Integer
k = ActiveCell.Column
k2 = ActiveCell
Selection.AutoFilter Field:=k, Criteria1:='=*' & k2 & '*'
完成后如下面的圖：
前面加'的綠色句子，為注釋段落，不起作用的。
翻譯一下：
Dim K as Integer：定義K為變量
K = ActiveCell.Column： K等于鼠標當前單元格的列的值（如在B列，則K=2）
K2 = ActiveCell ： K2等于當前單元格的內(nèi)容。
Selection.AutoFilter Field:=k, Criteria1:='=*' & k2 & '*' ：自動篩選，列數(shù)=K，內(nèi)容= 包含當前單元格。
這個時候關閉，保存，宏就可以使用啦。
四、使用注意事項
一、這個宏在計算列數(shù)的時候，必須是第一列開始計算的，因此在自動篩選的時候，務必保證第一列也在篩選范圍內(nèi)。
如下圖這樣（第一列沒有出現(xiàn)篩選的下三角標識），宏是會發(fā)生錯位的。
二、宏所篩選的是包含，意味著只要選銷售，銷售收入，銷售商品這一類的字樣都會被篩選出。
如果想嚴格篩選，也可以在命令中修改。這個有興趣的大家可以自己琢磨。
三、宏的篩選是在已建立篩選的基礎上再篩選，而不是取消原來的篩選重新篩選。
如上圖，第一次篩選是月份，第二次篩選是憑證號，合在一起就篩選出了1月X002號憑證。當然如果想把命令改成重新篩選，也可以。
四、如果想要清除已經(jīng)建立的篩選，也可以做一個宏。（大家只要簡單錄制就可以）。
但是我個人習慣使用快捷鍵 Alt-D - F - S（逐次按下）來完成。
學習宏這個東西，要自己敢折騰會琢磨，盡管我也并不是?？瞥錾?，而是自己對著網(wǎng)頁瞎鼓搗自學。但是他山之石可以攻玉，給我們本職工作的幫助確實是巨大的。
聯(lián)系客服
