如何在Excel中复制工作表并自动重命名？

 如何在Excel中复制工作表并自动重命名？

在Excel中，您如何复制工作表并自动重命名而无需像往常一样键入名称？ 在本文中，我将讨论如何一次或多次复制工作表并一次给它们指定特定的名称。

多次复制工作表，并使用VBA代码使用增量选项卡名称重命名它们

多次复制工作表并使用自定义名称重命名它们 Kutools for Excel

多次复制工作表，并使用VBA代码使用增量选项卡名称重命名它们

如果您需要多次复制工作表并为其指定系列名称，例如KTE-1，KTE-2，KTE-3，KTE-4…，则以下VBA代码可以帮您一个忙。

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块，然后将以下代码粘贴到 模块 窗口。

VBA代码：多次复制工作表并一次重命名：

Sub Create() Updateby Extendoffice Dim I As Long Dim xNumber As Integer Dim xName As String Dim xActiveSheet As Worksheet On Error Resume Next Application.ScreenUpdating = False Set xActiveSheet = ActiveSheet xNumber = InputBox("Enter number of times to copy the current sheet") For I = 1 To xNumber xName = ActiveSheet.Name xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName) ActiveSheet.Name = "KTE-" & I Next xActiveSheet.Activate Application.ScreenUpdating = True End Sub

3。 然后按 F5 键以运行此代码，并出现一个提示框，提示您要复制当前工作表的副本数，请参见屏幕截图：

4。 在弹出的对话框中输入份数，然后单击 OK 按钮，您当前的工作表已重复了5个副本，并使用序列名称重命名，如下所示的屏幕截图：

备注：在上面的代码中，您可以更改工作表名称文本“KTE-”到您的需要。

多次复制工作表并使用自定义名称重命名它们 Kutools for Excel

也许上面的VBA代码对您来说很难应用，在这里，我将介绍一个简单的工具- Kutools for Excel，其 创建序列工作表 实用程序，您可以毫不费力地完成此任务。

Kutools for Excel : 带有300多个便捷的Excel加载项，可以在30天内免费试用. 

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

1。 点击 Kutools 加 > 工作表 > 创建序列工作表，请参见屏幕截图：

2。 在 创建序列工作表 对话框：

（1.）从列表中选择要复制的工作表名称。 基本工作表 下拉列表;

（2.）然后指定要复制的工作表的数量 创建数 文本框;

（3.）然后检查 序列号 在下面 工作表名称基于 部分;

（4.）最后，在所需的右窗格中创建序列工作表名称，请参见屏幕截图：

3. 完成设置后，请点击 Ok 按钮，并且特定工作表已被复制多次并根据您在新工作簿中创建的顺序重命名，请参见屏幕截图：

点击免费下载 Kutools for Excel 现在 ！

演示：多次复制工作表并使用自定义名称重命名它们 Kutools for Excel