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

在 Excel 中，如何复制工作表并自动重命名，而无需像平常一样手动输入名称呢？本文将介绍如何一次性复制一个工作表一次或多次，并立即赋予它们特定的名称。

使用 VBA 代码复制工作表多次并以递增标签名称重命名

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

使用 VBA 代码复制工作表多次并以递增标签名称重命名

如果您需要多次复制某个工作表，并为它们指定系列名称，例如 KTE-1、KTE-2、KTE-3、KTE-4……，以下 VBA 代码可以帮助您完成任务。

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

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. 在弹出的对话框中输入份数，然后单击“确定”按钮，您的当前工作表将被复制 5 份，并按照序列号重命名，如下图所示：

注意：在上述代码中，您可以根据需要更改工作表名称文本“KTE-”。

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

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

安装 Kutools for Excel 后，请按照以下步骤操作：

1. 单击 Kutools Plus > 工作表 > 创建序列工作表，参见截图：

2. 在“创建序列工作表”对话框中：

(1.) 从基于工作表下拉列表中选择要复制的工作表名称；

(2.) 然后在创建的数量文本框下指定要复制的工作表数量；

(3.) 接着在工作表名称基于部分勾选连续的数字；

(4.) 最后，在右侧窗格中创建所需的序列工作表名称，参见截图：

3. 完成设置后，请单击“确定”按钮，指定的工作表将在新工作簿中被多次复制并根据您创建的序列进行重命名，参见截图：

立即免费下载 Kutools for Excel！

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