巧妙提取超過(guò)平均值的地區(qū)名稱(chēng)

大江東去

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

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

補(bǔ)充

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