|
当我们从系统中导出所有数据到Excel的一张工作表中，这时需要将数据按不同部门或不同员工进行多次筛选，将不同的筛选结果分别发给各位同事，筛选-复制筛选结果-粘贴到新工作簿，这样一个简单但却枯燥的动作，需要重复做上N次，是不是有些郁闷呢？
这时我们利用Excel VBA编写指定的代码，用户只需要单击一个按钮，不到一分钟后即可轻松将数据筛选到各个新工作簿中。
如下图所示，我们需要将这份人事数据按不同部门分发到各个新工作簿中。 每个新工作簿只包含一个部门的人事数据信息，并且该工作簿的文件名以部门名称命名。
首先打开总表，按快捷键Alt+F11进入VBE界面，即VBA代码存放的界面。在VBE界面中，单击“插入”菜单，选择“模块”，在模块中编辑VBA代码，此处省略一万字…
大家如果有别人编好后的代码，直接复制到这个模块中即可。 代码以Sub 宏名() 开头，宏名是自己命名的，只要没有特殊符号，非纯数字，不重名，总之形象命名就是了。我这里宏名以 FilterToWk 命名。
关闭VBE界面，回到工作表界面，在“插入”选项卡下，插入一张图片或形状，也可以直接用控件来作为运行代码的按钮。右击该按钮→指定宏，选择宏名为 FilterToWk 即可。
将鼠标放到部门列的任意一个单元格中，单击“开始筛选分发”按钮，此时弹出对话框，提示用户“您选中了第5列，将以此列作为条件进行筛选，确定开始吗”，用户单击“YES”后，电脑自动运行，不到一分钟后，汇总结果就全部呈现在我们面前了。
PS：此代码不仅能对部门进行筛选分发，对于其他列一样可以，只需要在单击“开始筛选分发”按钮前，将鼠标放在要进行筛选分发的列上即可。
此文出自东方瑞通彭巽言老师，转载需注明出处。
| 
简体中文
英语
日语
韩语
法语
西班牙语
越南语
泰语
阿拉伯语
俄语
葡萄牙语
德语
意大利语
希腊语
荷兰语
波兰语
保加利亚语
爱沙尼亚语
丹麦语
芬兰语
捷克语
罗马尼亚语
斯洛文尼亚语
瑞典语
匈牙利语
繁体中文
文言文
发表于 2015-4-22 10:45:45
置顶卡
喧嚣卡
变色卡
千斤顶