实用Excel技巧分享:快速拆分工作表的两种方法(excel2019中的拆分工作表)

工作表有一个汇总和一个拆分。如何快速拆分工作表？本文分享了两种快速拆分工作表的方法，效率提高了99.99%。希望对你有帮助！

亲爱的朋友们，你是否遇到过这样的问题:在我们将所有信息汇总在一个表中后，我们需要根据一定的条件将这个大表拆分为多个工作表。那怎么实现呢？也许最愚蠢的方法是过滤原始工作表中的数据，然后将其复制并粘贴到新工作表中，但这种方法不适合数据量很大的情况，并且新工作表需要逐个重命名，这很麻烦。今天，我将介绍两种快速实用的工作表拆分方法。

如图所示，现在需要按城市将该工作表的内容拆分为多个工作表。

第一种:快速拆分-VBA（代码在文章中提供）VBA是EXCEL处理大量重复工作的最佳工具。但是，许多人对VBA一无所知，所以我今天将与您分享一段代码，并详细说明如何根据实际表格修改代码值，以便大家在工作中使用。

（1）按Alt+F11打开VBA编辑器，并单击“插入”菜单下的“模块”。

②在右侧的代码窗口中输入以下代码。如果不想开始打字，可以加群下载准备好的代码文件，直接复制粘贴。

子拆分表（）

Dim i、iRow、iCol、t、iNum为整数，sh为工作表，str为字符串应用程序。ScreenUpdating = False带有工作表（& quot工作表& quot）iRow =。范围（& quotA65535 & quot).结束（xlUp）。行iCol =。范围（& quotIV1 & quot).结束（xlToLeft）。i = 2到iRow str =的t = 3列。细胞（I，t）。出错时的值如果出错，则继续下一组sh = Worksheets（str）。号码& lt& gt0然后设置sh = Worksheets。添加（、工作表（工作表。数数））嘘。Name = str End If sh。范围（& quotA1 & quot).调整大小（1，iCol）。值=。范围（& quotA1 & quot).调整大小（1，iCol）。值iNum = sh。范围（& quotA & quot& amp成排。数数）。结束（xlUp）。sh排。范围（& quotA & quot& ampiNum + 1）。调整大小（1，iCol）。值=。范围（& quotA & quot& amp我)。调整大小（1，icol）。价值接下来，我以应用程序结束。screenupdating =真实结束子代码分析:

这里，需要根据实际情况修改的代码参数用红色文字表示；用于表示注释，并且以下文本不影响代码的操作，而仅用于解释代码。这里，注释文本故意用灰色表示。

子分割表的文件名，根据您自己的文件名修改。

Dim i，iRow，iCol，t，iNum为整数，sh为工作表，str为字符串

‘application . screen updating = false‘关闭屏幕刷新。

with Worksheets（“sheet 1“）“是用双引号括起来的工作簿名称，它根据实际工作簿名称进行修改。

Irow =。范围（“a65535”）。结束（xlup）。‘row‘从A列的最后一行开始向上获取工作表的行数，一般只更改该范围内的列参数。如果工作表的有效区域从B列开始，则值为B65535。

Icol =。范围（“IV1”）。end（xltolft）。column‘获取工作表中从最后一列的第一行（iv）向左的列数，通常只更改该范围内的行参数。如果工作表的有效区域从第二行开始，则值为IV2。

t = 3‘t是列数，根据要拆分的列进行设置。例如，如果它被E列拆分，这里是t=5。

对于i = 2到iRow，I是行数。设置从中获取拆分值的行数，该值应根据实际工作表进行更改。

Str =。细胞（I，t）。“Value”获取单元格（I，t）的值作为拆分表的名称。

出错时继续下一步

set sh = Worksheets（str）‘使用上面获得的值的名称创建一个工作表。

如果呃。如果该工作表不存在，请添加一个并命名。

设置sh =工作表。添加（、工作表（工作表。计数））

先令Name = str

如果此工作表存在。

先令范围（“a1”）。调整大小（1，icol）。值=。范围（“a1”）。调整大小（1，icol）。“value”来获取工作表的标题，通常只更改range中的列值和resize中的行值。例如，工作表的标题从B列的第三行开始，然后代码变为sh。范围（“B1”）。调整大小（3，ICOL）。值=。范围（“B1”）。调整大小（3，ICOL）。价值

Inum = sh。范围（“a“&行。数数）。结束（xlup）。通常，只有该范围内的列值会被更改。如果工作表从B列开始，它将变成range（“B“& rows。数数）。结束（xlup）。划。

先令范围（“A“& iNum+1）。调整大小（1，iCol）。值=。范围（“A”和I）。调整大小（1，iCol）。价值

将工作表数据粘贴到新表中，一般只更改区域的列值。如果工作表从B列开始，它将被更改为range（“B“& inum+1）。调整大小（1，icol）。值=。范围（“b”和I）。调整大小（1，icol）。价值。

接下来我

以…结尾

‘application . screen updating = true‘打开屏幕刷新。

末端接头

（3）代码输入完成后，点击菜单栏中的“运行子流程”。因此工作表被拆分。

按如下方式完成:

这样，只需单击一下即可拆分工作表。

第二种:常规拆分-数据透视表数据透视表确实很容易使用。它不仅在数据统计分析方面具有绝对优势，而且还可以通过使用筛选页面来帮助我们拆分工作表。步骤如下:

（1）选择数据源中的任意单元格，然后单击“插入”选项卡下的“数据透视表”。位置选择一个现有工作表，然后单击确定。

（2）将要拆分的字段“城市”放在筛选字段中，将字段“日期”和“销售员”放在行字段中，将字段“销售”放在值字段中。

（3）修改数据透视表的格式，以便在生成新工作表时形成表格格式。

从“数据透视表工具”下“设计”选项卡的“报表布局”下拉菜单中选择“在表中显示”。

从“数据透视表工具”下“设计”选项卡的“报表布局”下拉菜单中选择“重复所有项目标签”。

从“数据透视表工具”下“设计”选项卡的“分类汇总”下拉菜单中选择“不显示分类汇总”。

结果如下:

（4）最后，将透视表拆分为工作表。从数据透视表工具下分析选项卡上数据透视表功能块的选项下拉菜单中选择显示报表筛选页，并选择城市作为要显示的报表筛选页的字段。

（5）为了方便后续处理，将数据透视表修改为普通表。选择第一个工作表“北京”，按住Shift键，然后单击最后一个工作表“重庆”以形成一个工作表组。这样，所有工作表都可以批量统一操作。

复制并粘贴所有值。

删除前两行，然后调整日期列的宽度。结果如下:

数据透视表很容易使用，但有很多步骤，而VBA操作简单，但有很多东西要学习。每个人根据自己的实际情况选择使用。如果你觉得不错，就喜欢吧！

相关学习推荐:excel教程

这几篇文章你可能也喜欢：

• Excel数据透视表学习的按需汇总数据和工作表拆分(如何将数据透视表拆分为多个工作表)
• Excel数据透视表学习中常见问题的解决方案(数据透视表中遇到的问题)
• Excel透视表学习的四种排序方法和插入公式(如何对透视表进行排序)
• Excel图表学习如何使用控件制作条形图(关于使用Excel图表控件的教程)
• Excel案例分享:同比增长率和环比增长率(环比增长)的计算方法

本文由主机参考刊发，转载请注明：实用Excel技巧分享:快速拆分工作表的两种方法(excel2019中的拆分工作表) https://zhujicankao.com/114195.html