如何在Excel中添加具有當前日期的新工作表？

某些財務和銷售人員可能需要每天插入帶有當前日期的新工作表，以統計日常工作。 如果您插入一個新的工作表，然後手動對其進行重命名，則將很麻煩。 今天，我將向您介紹一些解決此問題的快速技巧。

通過使用VBA代碼添加具有當前日期的新工作表

使用Kutools for Excel添加具有順序日期的新工作表

---

通過使用VBA代碼添加具有當前日期的新工作表

下面的VBA代碼將幫助您每天運行代碼時插入帶有當前日期的新工作表。

1。 按住 ALT + F11 鍵，然後打開 Microsoft Visual Basic應用程序窗口.

2。 點擊 插入 > 模塊，然後將以下宏粘貼到 模塊窗口.

VBA代碼：添加具有當前日期的新工作表

Sub AddSheets_TodayDate()
'Updateby20140717
    Dim szTodayDate As String
    szTodayDate = Format(Date, "mmm-dd-yyyy")
    On Error GoTo MakeSheet
    Sheets(szTodayDate).Activate
    Exit Sub
MakeSheet:
    Sheets.Add , Worksheets(Worksheets.Count)
    ActiveSheet.Name = szTodayDate
End Sub

3。 然後按 F5 鍵以運行此代碼，並且在現有工作表之後插入了具有今天日期的新表。 看截圖：

備註：保存並關閉此工作簿時，請另存為 Excel啟用宏的工作簿 通過單擊格式化 文件 > 另存為。 第二天啟動工作簿時，請確保單擊 啟用內容，以便您可以成功運行代碼以添加新的日期工作表。

---

使用Kutools for Excel添加具有順序日期的新工作表

上面的代碼可以幫助您一次只插入一個具有當前日期的工作表，如果您要插入具有連續日期的多個工作表，此實用程序 創建序列工作表 of Excel的Kutools 會幫你一個忙。

Excel的Kutools 包括300多個便捷的Excel工具。 30天免費試用，不受限制。 立即獲取.

如果您已安裝Kutools for Excel，請執行以下操作：

1。 在空白單元格中，請輸入今天的日期，然後拖動填充手柄以根據需要用日期序列填充單元格。

2。 然後點擊 企業 > 工作表工具 > 創建序列工作表，請參見屏幕截圖：

3。 在 創建序列工作表 對話框中，指定要基於的工作表的工作表 基本工作表 下拉列表。 然後選擇 範圍內的數據 選項下 工作表名稱基於 部分以選擇要用作工作表名稱的數據范圍。 看截圖：

4。 然後點擊 OK，然後將創建一個新工作簿，其工作表名稱為日期序列。 看截圖：

要了解有關此創建序列工作表功能的更多信息。

---

相關文章：

如何從Excel中的一系列單元格創建序列工作表？