指定列_Excel VBA 7.48按照任意指定列拆分工作表，5秒钟解决帮你解决

前景提要

今天我们正式开始分享一些关于工作表的拆分的一些知识，前面我们已经陆陆续续的学习了很多关于工作表的合并的操作，现在我们开始进入工作表的合并的对立面-工作表的拆分，将总表按照各种要求进行花式拆分，小伙伴们准备好了，准备开车了

今天我们来分享下如何按照指定列进行拆分工作表

场景说明

假设我们现在有一个工作表，是所有的班级的学生的考试成绩的汇总表，我们现在希望按照班级来进行分析，分析每个班级的最高分和平均分，从而针对不同的班级进行有针对性的指导

从上面的信息中，我们得到了我们需要按照班级这一列来进行拆分，所以我们拆分的参照列就是班级这一列了，如果让你手工操作你会怎么操作呢？先进行筛选，然后按照每个班级选项进行新建工作表，复制粘贴，如此循环

代码区

先来看看代码

Sub chai()Dim rng As Range, trng As Range, arr, sthn As WorksheetSet trng = Application.InputBox("请选择标题栏