Note: The other languages of the website are Google-translated. Back to English

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

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

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

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


如果您需要多次复制工作表并为其指定系列名称,例如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 键以运行此代码,并出现一个提示框,提示您要复制当前工作表的副本数,请参见屏幕截图:

doc重命名复制的工作表1

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

doc重命名复制的工作表2

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


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

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

安装后 Kutools for Excel,请执行以下操作:

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

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

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

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

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

(4.)最后,在所需的右窗格中创建序列工作表名称,请参见屏幕截图:

doc重命名复制的工作表4

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

doc重命名复制的工作表5

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


Kutools for Excel:具有300多个方便的Excel加载项,可以在30天内免费试用,没有任何限制。 立即下载并免费试用!

最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能。 支持Office / Excel 2007-2019和365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能30天免费试用。 60天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (2)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
哇,这为我节省了很多时间! 谢谢!
该评论由网站上的主持人最小化
您是否可以在此代码中添加一个选项以复制特定单元格。 例如:我在一个单元格中有 1 号,我希望当我复制工作表时会更改为 +1。 谢谢
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点