如何利用99%的人都不知道的excel隐藏功能,对数据进行快速分类？.docxVIP

如何利用99%的人都不知道的excel隐藏功能，对数据进行快速分类？作者：陈老师 来源：鹰眼数据相信在这大数据、智能处理的时代，不少童鞋怀着内裤外穿的梦想，兢兢业业的用着excel做基础的数据处理的工作。没错，本次我们讲的是关于使用vba如何对excel表格中的数据进行快速分类。具体一点说，如何通过按照既定的条件通过vba将一个excel表格快速拆成几个sheet。我们接下来通过讲解一个案例来说明。案例：王老师负责清镇十二中的学生档案管理工作，每个月都要统计一次在校学生的花名册，并按照学生所属的县（市）、乡（镇）将学生划分到一个个独立的sheet里面，请问有什么方法可以快速实现该功能以减少王老师的工作量？如下图：VBA的运行思路：相信有部分同学看到上面密密麻麻的流程框架图，已经有点懵逼了，接下来我们试着用人话来解读一下：第一步，我们先打开excel的VBA操作界面。（按ALT+F11快捷键或者右击工作表名称标签，点击查看代码均可）第二步，进入VBA操作界面后，选择“插入”——“模块”，双击新添加的模块1，在弹出的代码窗口中，写入我们本次希望执行的VBA脚本语言。这里插入一个小知识①，VBA的脚本是以“sub 过程名()”开头，以“End Sub”结尾，一个过程就是执行某项动作的一套指令。一个完整的vba语句如下：第三步，输入代码。输入FOR循环语句，让程序对花名册上的每一个学生进行筛查，直到执行完花名册上的最后一个学生才终止；小知识②：循环语句For Next：以指定次数来重复执行一组语句，语法格式如下：对于筛查到的每一个学生，使用if语句进行判断其是否属于清镇市，如属于清镇市，则判断其属于清镇市哪个乡镇，如不属于清镇市，则归类到清镇市外的工作表中；小知识③：判断语句IF：判断现有情况是否满足指定的条件，如满足，则执行下一段语句块，如不满足，则执行另外的操作。语法格式如下：对于属于清镇市的学生，使用if语句继续判断，是否已经存在以其所属乡镇名称命名的工作表，如存在，则将该学生的资料复制名粘贴到该工作表中已使用区域的下一行；如不存在，则创建以其所属乡镇名称命名的工作表并将该学生的资料复制名粘贴到该工作表中已使用区域的下一行；对于不属于清镇市的学生，使用if语句继续判断，是否已经存在名称为“清镇市外”的工作表，如存在，则将该学生的资料复制名粘贴到该工作表中已使用区域的下一行；如不存在，则创建以“清镇市外”命名的工作表并将该学生的资料复制名粘贴到该工作表中已使用区域的下一行；第四步，输入完代码之后，点击执行。结果如附图1所示，王老师只需要把语句提前写好，每一次需要做分类的时候，将模块导入到对应的excel文件中，就可以一键执行自动分类。讲到这里，有的同学可能会想，你丫的讲了这么多，但我不是王老师呀。其实换了一个场景，我们同样可以按照以上的思路，只需要根据实际情况去变动指定的条件和运用的对象。今天的内容就分享到这里，希望能对阅读的同学们有所助益。完整的VBA代码会附在结尾处，谢谢阅读。附上述步骤的完整代码：Sub 数据分类()Dim i As Integer, a As BooleanFor i = 3 To 107ThisWorkbook.Worksheets(外在本就读花名册).Activate If ThisWorkbook.Worksheets(外在本就读花名册).Cells(i, 8).Value = 清镇 Then For Each Worksheet In ThisWorkbook.Worksheets If Worksheet.Name = ThisWorkbook.Worksheets(外在本就读花名册).Cells(i, 9).Value Then a = True Exit For Else a = False End If Next If a = False ThenThisWorkbook.Worksheets.Add after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)ActiveSheet.Name = ThisWorkbook.Worksheets(外在本就读花名册).Cells(i, 9).ValueThisWorkbook.Worksheets(外在本就读花名册).Range(a1:l2).CopyThisWorkbook.Worksheets(ThisWorkbook.Worksheets(外在本就读花名册).Cells(i