最近在工作中遇到一個問題，要求統(tǒng)計出B列數值超過平均值的地區(qū)數據，并在指定位置以文字描述的形式顯示相應地區(qū)的名稱。雖然可以使用輔助單元格進行高級篩選，也可以使用條件格式，但出于操作便利的考慮，決定還是利用VBA代碼實現(xiàn)上述要求：按下“Alt+F11”組合鍵，打開Microsoft Visual Basic for Applications編輯器窗口，依次選擇“插入/模塊”，在右側窗格插入一個空白模塊（如圖1），在這里手工輸入或粘貼代碼（關注電腦迷微信回復“201505vba2”獲取下載鏈接）。

上述代碼中的“超過平均值的地區(qū)有：”可以根據需要自行修改，檢查無誤之后，選擇“文件/關閉并返回到Microsoft Excel”命令，返回Excel主界面，按下“Alt+F8”組合鍵，打開“宏”對話框，選擇并運行宏（如圖2）。但需要說明的是，A列數據更新之后，必須重新運行宏代碼，“超過平均值的地區(qū)”才會進行更新。

補充

如果不需要文字描述，那么可以切換到“開始”選項卡，在“樣式”功能組依次選擇“條件格式/項目選取規(guī)則/高于平均值”，任意選擇某種特定的顏色，然后執(zhí)行排序操作就可以了。