【excel怎么拆分页】将表中的多页页面快速拆分为多个工作表，完成了几行代码

我们做表格数据汇总时，经常在工作表中按不同的部门或公司分别展示数据。为了便于单独传输各部门的数据，这里包含了不同的工作表。今天，我们来看一下如何将工作表中的多个工作表表拆分为单独的工作表。

如上图所示，总公司表包含广州、深圳、长沙三个分公司的数据，需要将不同公司的数据单独划分到工作表中。如果数据量不大，都是单独复制粘贴的，相比之下，在数据量大的情况下，不可能这样做。今天我们将学习通过简单的代码在5秒钟内快速完成票的分割的方法。

一、Excel工作表分割效果演示

在上图中，通过拆分代码操作可以快速拆分N个工作表。可以快速拆分成几行简单的代码。

二、工作表分割具体操作方法。

第一步：用鼠标单击工作表名称，右键单击以查看代码。或者，按Alt F11快捷方式进入代码编辑窗口，如下图所示。

步骤2:单击左侧的工程窗格，在Thisworkbook上单击鼠标右键，然后单击“插入-模块”。双击模块以进入“编辑工作簿模块”窗口，如下图所示。

步骤3:进入模块后，输入下面的VBA代码，然后单击上面以运行子进程或用户表单，如下图所示。

VBA拆分代码如下：

将Sub分割为工作簿2()

Dim wk As Workbook、ss$、k%

A=False

For Each sht In T

Set wk=Workbooks。Add

K=k 1

T(k)。Copy Workbooks(2)。图纸(1)

Ss=T '\ ' '。" xlsx "

Wk。SaveAs ss

Wk。Close

next

A=真

MsgBox“工作簿拆分完成！”

End Sub

通过上述过程，现在您可以在几秒钟内将多个工作表快速拆分为单独的工作簿。