巧妙提取超过平均值的地区名称

大江东去

最近在工作中遇到一个问题，要求统计出B列数值超过平均值的地区数据，并在指定位置以文字描述的形式显示相应地区的名称。虽然可以使用辅助单元格进行高级筛选，也可以使用条件格式，但出于操作便利的考虑，决定还是利用VBA代码实现上述要求：按下“Alt+F11”组合键，打开Microsoft Visual Basic for Applications编辑器窗口，依次选择“插入/模块”，在右侧窗格插入一个空白模块（如图1），在这里手工输入或粘贴代码（关注电脑迷微信回复“201505vba2”获取下载链接）。

上述代码中的“超过平均值的地区有：”可以根据需要自行修改，检查无误之后，选择“文件/关闭并返回到Microsoft Excel”命令，返回Excel主界面，按下“Alt+F8”组合键，打开“宏”对话框，选择并运行宏（如图2）。但需要说明的是，A列数据更新之后，必须重新运行宏代码，“超过平均值的地区”才会进行更新。

补充

如果不需要文字描述，那么可以切换到“开始”选项卡，在“样式”功能组依次选择“条件格式/项目选取规则/高于平均值”，任意选择某种特定的颜色，然后执行排序操作就可以了。