如何在Excel中快捷创建具有相同格式的多个工作表？-英雄云拓展知识分享

如何在Excel中快捷创建具有相同格式的多个工作表？

举例来看，您已创建了具有特定格式的工作表，现在您想要创建与该工作表具有相同格式的多个工作表，如何在Excel中快捷解决此任务？ 本教程讨论的是创建具有相同格式的多个图纸的方法。

经过移动或复制创建具有相同格式的图纸

经过VBA创建具有相同格式的图纸

经过复制tool的多个工作表来创建具有相同格式的工作表

经过移动或复制创建具有相同格式的图纸

在Excel中，可使用“移动”或“复制”命令来创建具有与所选工作表相同格式的工作表。

1.在表格上单击所需格式的表格。 工作表标签栏，然后右键单击以选择 移动或复制 从上下文菜单中。 看截图：

2.然后在弹出的对话框中，检查 建立副本 选项。 看截图：

3。 点击 OK。 在所选工作表的前面以相同的格式创建一个新工作表。 看截图：

备注:

（1）您也能够点击 首页 > 格式 > 移动或复制工作表 使之成为可能 移动或复制 对话。

（2）当您需要创建数百张具有相同格式的图纸时，使用此方法将很耗时。

经过VBA创建具有相同格式的图纸

有一个VBA代码可以帮助您一次快捷创建多个具有相同格式的图纸。

1。 按 Alt + F11键 打开钥匙 Microsoft Visual Basic for Applications 窗口，然后单击 插入 > 模块，将以下代码复制并粘贴到 模块 窗口。

VBA：创建具有相同格式的图纸。

Sub CopyWorkSheets()
'Updateby20150526
Dim xNumber As Integer
Dim xWsName As String
On Error Resume Next
xTitleId = "toolforExcel"
xWsName = Application.InputBox("Copy worksheet name", xTitleId, , Type:=2)
xNumber = Application.InputBox("Copy number", xTitleId, , Type:=1)
For i = 1 To xNumber
Application.ActiveWorkbook.Sheets(xWsName).Copy _
After:=Application.ActiveWorkbook.Sheets(xWsName)
Next
End Sub

2。 按 F5 键运行VBA代码，然后会弹出一个对话框供您键入复制其格式所需的工作表名称。

3。 点击 OK，然后在另外一个弹出对话框中指定所需的份数。 看截图：

4。 点击 OK。 然后有6个具有相同格式的工作表副本。

经过复制tool的多个工作表来创建具有相同格式的工作表

如果您不喜欢使用VBA，在这里我为您介绍一个方便的工具– Excel的tool，您可使用它 复制工作表 实用程序，可快捷轻鬆地创建具有相同格式的图纸。

后 免费安装 tool，请履行以下操作：

1。 点击 tool 加 > 下载学习单 > 复制工作表。 看截图：

2。 在里面 复制多个工作表 对话框，请履行以下操作：

（1）从列錶框中检查要复制其格式的工作表名称 复制所选的工作表;

（2）指定份数；

（3）指定要放置副本的位置。

3。 点击 Ok，会弹出一个对话框，提示您已成功创建副本。 请点击 OK 关闭它。

现在，您可以看到已指定数量的具有相同格式的图纸。

单击此处了解有关复制多个工作表的更多详细信息