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

 如何在Excel中根据工作表值复制工作表并重命名?

通常,您可以应用 移动或复制 功能复制工作表,然后根据需要手动为副本键入一个新名称。 但是,您是否曾经在复制工作表后尝试根据单元格值重命名工作表? 本文,我将讨论如何在创建副本时根据单元格值自动重命名工作表。

复制工作表并使用VBA代码根据单元格值重命名

多次复制工作表并使用Kutools for Excel根据单元格值重命名


复制工作表并使用VBA代码根据单元格值重命名

以下VBA代码可以帮助您复制工作表并自动使用特定的单元格值对其重命名,请执行以下操作:

1。 激活要复制的工作表,然后按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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

VBA代码:复制工作表并使用单元格值重命名:

Sub Copyrenameworksheet()
'Updateby Extendoffice
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3。 然后按 F5 键以运行此代码,并且当前工作表已在所有工作表之后复制到当前工作簿中,并使用您指定的单元格值重命名,请参见屏幕截图:

doc按值1复制raname

备注:在上面的代码中,单元格引用 A1 是您要为新复制的工作表重命名的单元格值,您可以根据需要进行更改。


多次复制工作表并使用Kutools for Excel根据单元格值重命名

上面的代码只能使用一个单元格值进行重命名,如果您需要多次复制工作表并根据单元格值列表对其进行重命名, Kutools for Excel创建序列工作表 可能会帮助您尽快完成此任务。

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

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

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

doc按值3复制raname

2。 在 创建序列工作表 对话框中,进行以下操作:

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

(2.)在[ 工作表名称基于 部分,然后单击 doc按值5复制raname 按钮以选择您要重命名复制的工作表所基于的单元格值。

立即下载Kutools for Excel!

3。 然后点击 Ok 按钮,并且特定工作表已被复制多次,并使用您在新工作簿中选择的单元格值重命名,请参见屏幕截图:

doc按值4复制raname

立即下载和免费试用Excel的Kutools!


演示:多次复制工作表并使用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)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
下面的代码效果很好。 我的问题是,是否可以自动打开新工作表(基于 A1)并从上一张工作表中删除内容,因为它被用作模板。 Sub Copyrenameworksheet() 'Updateby Extendoffice 20160704 Dim ws As Worksheet Set wh = Worksheets(ActiveSheet.Name) ActiveSheet.Copy After:=Worksheets(Sheets.Count) If wh.Range("A1").Value "" Then ActiveSheet.Name = wh.Range("A1 ").Value End If wh.Activate End Sub
该评论由网站上的主持人最小化
您的代码是我一直在寻找的,但是我希望用来重命名工作表的单元格内容是日期。 例如,在第一张工作表上,单元格 A2 显示日期为 3 年 2017 月 2 日星期一。我希望在宏创建下一张工作表时从 A7 中获取日期,添加 10 以显示,例如例如,“2017 年 10 月 07 日星期一”,但将新工作表重命名为 dd-mm-yy 格式,因此为“17-XNUMX-XNUMX”。 这可能吗? 顺便说一句,我有 Kutools for Excel,但这张电子表格将是我父亲没有 Kutools 的血压记录。 提前致谢!
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点