其實，大多數(shù)的人都是學(xué)習(xí)太少，想得太多。學(xué)習(xí)的事，只需傻傻的堅持著就行，假以時日，終將有所回報。

盧子自己使用的表格都是一勞永逸，前期用心設(shè)置，后期就自動統(tǒng)計，完全不用操心。而有的人，總是隨意設(shè)置，這樣每次都會重復(fù)做一些無用功。

先看前期效果，只要在明細表添加數(shù)據(jù)，在匯總表就能自動統(tǒng)計。詳見文章：一勞永逸！Excel自動統(tǒng)計，真好

有粉絲提出了新的需要，透視表要跟明細表在同一個工作表，這種如何實現(xiàn)自動統(tǒng)計？

同樣是輸入一行數(shù)據(jù)，右邊的透視表就實時更新。

Step 01 插入透視表，選擇一個比較大的區(qū)域，這樣相當(dāng)于間接獲得動態(tài)數(shù)據(jù)源，將透視表存放到現(xiàn)有工作表。

當(dāng)然，這里也可以定義名稱，寫一個長公式獲取動態(tài)區(qū)域，不過不是今天的重點就先不說。

Step 02 將性別拉到行，姓名拉到值，并取消空白的篩選。

Step 03 點開發(fā)工具，錄制宏，右鍵，刷新，停止錄制宏。這步是為了獲取透視表刷新的VBA代碼。

不會英語也能學(xué)會VBA，很大原因就在于此，很多代碼都可以通過錄制宏得到。

Step 04 點VB，進入VBA后臺，在模板1這里可以看到剛剛錄制的宏代碼，將這一段復(fù)制起來。

宏2是宏的名稱，代表我之前錄制過宏，現(xiàn)在是第2個宏。數(shù)據(jù)透視表3也是同樣的意思，代表透視表名稱。

雙擊Sheet1，選擇WorkSheet和Change，這個是工作表事件，意思就是說，只要我內(nèi)容有改變了就執(zhí)行刷新的代碼，再將多余的代碼刪除掉。

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.PivotTables("數(shù)據(jù)透視表3").PivotCache.Refresh

End Sub

這樣就可以，當(dāng)然也可以添加一段對應(yīng)的固定語句，提升VBA的運行效率。

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

ActiveSheet.PivotTables("數(shù)據(jù)透視表3").PivotCache.Refresh

Application.EnableEvents = True

End Sub

Step 05 另存為啟用宏工作簿，現(xiàn)在就可以自動統(tǒng)計了。

學(xué)VBA的意義是為了讓數(shù)據(jù)自動化，還有解決常規(guī)用法解決不了的問題。最后，別把VBA想得太高深，實際上跟我們的工作是密切相關(guān)的。