![ec6ce0a373b226f26714942767a021b3.png](https://img-blog.csdnimg.cn/img_convert/ec6ce0a373b226f26714942767a021b3.png)
下面说下在一个工作簿里把里面的一个工作表依据实际需求的条件内容,快速拆分成多个工作表方法。
1.打开excel文件,现在需要依据地区和国家这个条件,分别单独生成不同的工作表出来,最原始的方法是手动新建工作表一个一个的内容复制粘贴,这方法内容比较少是可行的,当倘若一个工作表里有几百个内容依据条件分别生成n个独立的工作表,工作效率低,不建议使用手动新建工作表复制粘贴内容;
![59ef8b84623193866563db54593aa289.png](https://img-blog.csdnimg.cn/img_convert/59ef8b84623193866563db54593aa289.png)
2.右键工作表,选择查看代码打开VBA窗口,复制输入以下代码带窗口中;
Sub 工作表拆分2() '通过筛选方法完成需求,速度快,但当有合并单元格时就不能用。读者可以根据实际情况选用
Dim SplitCol As String, ColNum As Integer, HeadRows As Byte, arr, lastrow, i, ShtIndex, only As New Collection, Rng As Range
SplitCol = "D" '指定拆分条件所在列</