跳到主要內容

 如何在Excel中復制工作表並自動重命名?

在Excel中,您如何復制工作表並自動重命名而無需像往常一樣鍵入名稱? 在本文中,我將討論如何一次或多次復制工作表並一次給它們指定特定的名稱。

多次復制工作表,並使用VBA代碼使用增量選項卡名稱重命名它們

多次復制工作表,並使用Kutools for Excel使用自定義名稱重命名工作表


如果您需要多次復制工作表並為其指定係列名稱,例如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 鍵以運行此代碼,並出現一個提示框,提示您要復制當前工作表的副本數,請參見屏幕截圖:

doc重命名複製的工作表1

4。 在彈出的對話框中輸入份數,然後單擊 OK 按鈕,您當前的工作表已重複了5個副本,並使用序列名稱重命名,如下所示的屏幕截圖:

doc重命名複製的工作表2

備註:在上面的代碼中,您可以更改工作表名稱文本“KTE-”到您的需要。


也許上面的VBA代碼對您來說很難應用,在這裡,我將介紹一個簡單的工具- Excel的Kutools,其 創建序列工作表 實用程序,您可以毫不費力地完成此任務。

Excel的Kutools : 帶有300多個便捷的Excel加載項,可以在30天內免費試用. 

安裝後 Excel的Kutools,請執行以下操作:

1。 點擊 Kutools 加 > 下載學習單 > 創建序列工作表,請參見屏幕截圖:

2。 在 創建序列工作表 對話框:

(1.)從列表中選擇要復制的工作表名稱。 基本工作表 下拉列表;

(2.)然後指定要復制的工作表的數量 創建數 文本框;

(3.)然後檢查 序列號工作表名稱基於 部分;

(4.)最後,在所需的右窗格中創建序列工作表名稱,請參見屏幕截圖:

doc重命名複製的工作表4

3. 完成設置後,請點擊 Ok 按鈕,並且特定工作表已被複製多次並根據您在新工作簿中創建的順序重命名,請參見屏幕截圖:

doc重命名複製的工作表5

點擊免費下載Kutools for Excel現在!


Excel的Kutools:具有300多個方便的Excel加載項,可以在30天內免費試用,沒有任何限制。 立即下載並免費試用!

最佳辦公生產力工具

🤖 Kutools 人工智慧助手:基於以下內容徹底改變數據分析: 智慧執行   |  生成代碼  |  建立自訂公式  |  分析數據並產生圖表  |  呼叫 Kutools 函數...
熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

產品描述


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible that you add in this code an option to also copy specific cells. For example: I have in one cell Number 1 and I would like that when I duplicate Sheet will change for +1. Thanks
This comment was minimized by the moderator on the site
Wow this saved a lot of time for me! Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations