VBA复制工作表重命名（vba复制工作表重命名怎么操作）

大家好！今天让创意岭的小编来大家介绍下关于VBA复制工作表重命名的问题，以下是小编对此问题的归纳整理，让我们一起来看看吧。gDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

开始之前先推荐一个非常厉害的Ai人工智能工具，一键生成原创文章、方案、文案、工作计划、工作报告、论文、代码、作文、做题和对话答疑等等gDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

只需要输入关键词，就能返回你想要的内容，有小程序、在线网页版、PC客户端和批量生成器gDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

问友Ai官网：https://ai.de1919.com。gDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

本文目录:gDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

• 用VBA能在复制工作表的同时改变工作表的名称和名称的颜色吗？如果能的话麻烦告诉我一下方法。
• VBa如何利用窗口添加工作表和删除,重命名
• EXCEL VBA复制样板sheet并重命名为XXX_1，再次执行就再复制一个重命名为XXX_2，如此循环，求助。
• VBA如何新建一个excel，并复制进去内容，并对sheet、excel进行命名？
• EXCEL中工作簿复制并重命名的VBA怎么写

gDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

用VBA能在复制工作表的同时改变工作表的名称和名称的颜色吗？如果能的话麻烦告诉我一下方法。gDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

Sub Macro1()
'复制 sheet1 表格，并命名新表“新复制的表”
Sheets("Sheet1").Copy after:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = "新复制的表"
.Tab.ColorIndex = 3
End With
End Sub
--------
这些代码不会的话，可以先录制这些操作，然后看录制的代码，改改就行

VBa如何利用窗口添加工作表和删除,重命名gDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

在工作表的名称上点鼠标右键，出现快捷菜单，点插入就增加工作表，同样可点删除、移动或复制工作表、还有重命名。重命名也可在工作表的名称上双击。

EXCEL VBA复制样板sheet并重命名为XXX_1，再次执行就再复制一个重命名为XXX_2，如此循环，求助。gDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

Private lngRunTimes As Integer '?行次数
Sub CopySheets()
Dim strShtName As String '工作表名称
Dim lngShtNo As Integer '?号
strShtName = "XXXXXX_"
Sheets("Sheet").Select
If lngRunTimes < 6 Then
lngRunTimes = lngRunTimes + 1
lngShtNo = Sheets.Count
Sheets("Sheet").Copy after:=Sheets(lngShtNo)
Else
lngRunTimes = lngRunTimes + 1
lngShtNo = lngRunTimes - (Int(lngRunTimes / 6) * 6)
Sheets(strShtName & Str(lngShtNo)).Delete
Sheets("Sheet").Copy after:=Sheets(lngShtNo)
End If
ActiveSheet.Name = "XXXXXX_" & Str(lngShtNo)
End SubgDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

大概写了下，因为删除时会有提醒，如果不想要，可以再给你改一下
gDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

Private lngRunTimes As Integer '?岘师悢
Sub CopySheets()
Dim strShtName As String '岺嶌昞柤徧
Dim lngShtNo As Integer '?崋
strShtName = "XXXXXX_"

Sheets("Sheet").Select

If lngRunTimes < 6 Then
lngRunTimes = lngRunTimes + 1
lngShtNo = Sheets.Count
Sheets("Sheet").Copy after:=Sheets(lngShtNo)
Else
lngRunTimes = lngRunTimes + 1
lngShtNo = lngRunTimes - (Int(lngRunTimes / 6) * 6)

Application.DisplayAlerts = False '钀暵采帵瀥
Sheets(strShtName & Str(lngShtNo)).Delete
Application.DisplayAlerts = True '懪奂采帵瀥

Sheets("Sheet").Copy after:=Sheets(lngShtNo)
End If

ActiveSheet.Name = "XXXXXX_" & Str(lngShtNo)
End SubgDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

追问

两个问题：1.运行一次以后复制的sheet名字是XXX_3不是2，能否解决？
2.如果在后面的代码需要active刚才复制的sheet，但是复制的sheet不是active状态，应该怎么active？Workbooks("yyyyyy").Sheets(xxxxxx).Activate，就是xxxx应该写什么？
非常感谢！gDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

追答

1.运行时，book内只有“Sheet”一个表，我这测试正常。。。。
2. ActiveSheet.Name = "XXXXXX_" & Str(lngShtNo)
所以你可以这样写
Workbooks("yyyyyy").Sheets("XXXXXX_" & Str(lngShtNo)).ActivategDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

gDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

VBA如何新建一个excel，并复制进去内容，并对sheet、excel进行命名？gDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

新建： Sheets.add
重命名：activesheet.name="文件名"
具体的你录一段宏,然后按alt+F11进去看一下代码.不过,录制的宏中的代码重命名是这样的.比如你将sheet1改为:文件1,它的代码为: Sheets("Sheet1").name="文件1", 我用activesheet,表示当前工作表.

EXCEL中工作簿复制并重命名的VBA怎么写gDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

Sub yySAVEcopy()
ChDrive Left(ThisWorkbook.Path, 1)
ChDir ThisWorkbook.Path
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "TEST.xls"
Application.DisplayAlerts = True
End Sub
' 以上是将文件存于当前的工作目录下，"TEST.xls"即为可自订的[目标文件名称]。

以上就是关于VBA复制工作表重命名相关问题的回答。希望能帮到你，如有更多相关问题，您也可以联系我们的客服进行咨询，客服也会为您讲解更多精彩的知识和内容。gDj创意岭 - 安心托付、值得信赖的品牌设计、营销策划公司

推荐阅读：

WPS文档的VB编辑器（wps中的vb编辑器）

vb小程序设计实例（vb小程序设计实例有哪些）

vba打开word文件（vba打开word文件并修改）

怎么删掉给商家的好评（怎么删掉给商家的好评呢）

儋州vi系统设计服务电话（儋州设计装饰公司）