巧妙提取超過平均值的地區名稱

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

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

補充

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