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

网友投稿 506 2024-01-10

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

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

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

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

通过复制多个工作表创建具有相同格式的工作表 Kutools for Excel

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

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

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

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

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

备注:

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

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

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

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

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

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

Sub CopyWorkSheets() Updateby20150526 Dim xNumber As Integer Dim xWsName As String On Error Resume Next xTitleId = "KutoolsforExcel" 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

Copy

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

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

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

通过复制多个工作表创建具有相同格式的工作表 Kutools for Excel

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

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。

免费下载免费全功能 30- 天

后 免费安装 Kutools for Excel，请执行以下操作：

1。点击 Kutools 加 > 工作表 > 复制工作表。看截图：

2.在 复制多个工作表 对话框，请执行以下操作：