工作中,汇总工作表经常遇到,拆分工作表也很实用。如某公司人员信息,需要将人员按部门、性别、年龄段、工资区间等关键词拆分到不同工作表。
若要以数值区间拆分工作表,可以利用Excel的筛选-数字筛选-自定义功能。但筛选后还要新建工作表、复制、粘贴。如果粘贴的格式变化还要调整工作表格式。
VBA,一次代码,复制可用,快速解决问题。
以年龄段拆分为例。操作思路是建两个一维数组,一个数组盛放所有年龄数值,另一个数组利用For循环前一个数组标记各年龄段是否存在。存在的年龄段,复制源工作表并用年龄段对复制工作表重命名,再从下向上依次删除非本年龄段人员信息。
如下工作表: