正文

VBA復(fù)制工作表重命名（vba復(fù)制工作表重命名怎么操作）

發(fā)布時(shí)間：2023-05-26 16:08:58 稿源：創(chuàng)意嶺閱讀： 134

大家好！今天讓創(chuàng)意嶺的小編來大家介紹下關(guān)于VBA復(fù)制工作表重命名的問題，以下是小編對此問題的歸納整理，讓我們一起來看看吧。

開始之前先推薦一個(gè)非常厲害的Ai人工智能工具，一鍵生成原創(chuàng)文章、方案、文案、工作計(jì)劃、工作報(bào)告、論文、代碼、作文、做題和對話答疑等等

只需要輸入關(guān)鍵詞，就能返回你想要的內(nèi)容，有小程序、在線網(wǎng)頁版、PC客戶端和批量生成器

問友Ai官網(wǎng)：https://ai.de1919.com。

本文目錄:

用VBA能在復(fù)制工作表的同時(shí)改變工作表的名稱和名稱的顏色嗎？如果能的話麻煩告訴我一下方法。
VBa如何利用窗口添加工作表和刪除,重命名
EXCEL VBA復(fù)制樣板sheet并重命名為XXX_1，再次執(zhí)行就再復(fù)制一個(gè)重命名為XXX_2，如此循環(huán)，求助。
VBA如何新建一個(gè)excel，并復(fù)制進(jìn)去內(nèi)容，并對sheet、excel進(jìn)行命名？
EXCEL中工作簿復(fù)制并重命名的VBA怎么寫

VBA復(fù)制工作表重命名（vba復(fù)制工作表重命名怎么操作）

用VBA能在復(fù)制工作表的同時(shí)改變工作表的名稱和名稱的顏色嗎？如果能的話麻煩告訴我一下方法。

Sub Macro1()
'復(fù)制 sheet1 表格，并命名新表“新復(fù)制的表”
Sheets("Sheet1").Copy after:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = "新復(fù)制的表"
.Tab.ColorIndex = 3
End With
End Sub
--------
這些代碼不會(huì)的話，可以先錄制這些操作，然后看錄制的代碼，改改就行

VBa如何利用窗口添加工作表和刪除,重命名

在工作表的名稱上點(diǎn)鼠標(biāo)右鍵，出現(xiàn)快捷菜單，點(diǎn)插入就增加工作表，同樣可點(diǎn)刪除、移動(dòng)或復(fù)制工作表、還有重命名。重命名也可在工作表的名稱上雙擊。

EXCEL VBA復(fù)制樣板sheet并重命名為XXX_1，再次執(zhí)行就再復(fù)制一個(gè)重命名為XXX_2，如此循環(huán)，求助。

Private lngRunTimes As Integer '?行次數(shù)
Sub CopySheets()
Dim strShtName As String '工作表名稱
Dim lngShtNo As Integer '?號
strShtName = "XXXXXX_"
Sheets("Sheet").Select
If lngRunTimes &lt; 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 &amp; Str(lngShtNo)).Delete
Sheets("Sheet").Copy after:=Sheets(lngShtNo)
End If
ActiveSheet.Name = "XXXXXX_" &amp; Str(lngShtNo)
End Sub

大概寫了下，因?yàn)閯h除時(shí)會(huì)有提醒，如果不想要，可以再給你改一下

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 Sub

追問

兩個(gè)問題：1.運(yùn)行一次以后復(fù)制的sheet名字是XXX_3不是2，能否解決？
2.如果在后面的代碼需要active剛才復(fù)制的sheet，但是復(fù)制的sheet不是active狀態(tài)，應(yīng)該怎么active？Workbooks("yyyyyy").Sheets(xxxxxx).Activate，就是xxxx應(yīng)該寫什么？
非常感謝！

追答

1.運(yùn)行時(shí)，book內(nèi)只有“Sheet”一個(gè)表，我這測試正常。。。。
2. ActiveSheet.Name = "XXXXXX_" & Str(lngShtNo)
所以你可以這樣寫
Workbooks("yyyyyy").Sheets("XXXXXX_" & Str(lngShtNo)).Activate

VBA復(fù)制工作表重命名（vba復(fù)制工作表重命名怎么操作）

VBA如何新建一個(gè)excel，并復(fù)制進(jìn)去內(nèi)容，并對sheet、excel進(jìn)行命名？

新建： Sheets.add
重命名：activesheet.name="文件名"
具體的你錄一段宏,然后按alt+F11進(jìn)去看一下代碼.不過,錄制的宏中的代碼重命名是這樣的.比如你將sheet1改為:文件1,它的代碼為: Sheets("Sheet1").name="文件1", 我用activesheet,表示當(dāng)前工作表.

EXCEL中工作簿復(fù)制并重命名的VBA怎么寫

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
' 以上是將文件存于當(dāng)前的工作目錄下，"TEST.xls"即為可自訂的[目標(biāo)文件名稱]。

以上就是關(guān)于VBA復(fù)制工作表重命名相關(guān)問題的回答。希望能幫到你，如有更多相關(guān)問題，您也可以聯(lián)系我們的客服進(jìn)行咨詢，客服也會(huì)為您講解更多精彩的知識和內(nèi)容。