为Excel底部新建工作表按钮配置自定义工作表生成功能

可以通过Excel的VBA宏实现这个需求，具体操作如下：

操作步骤 #

• 打开目标Excel文件，按下Alt + F11打开VBA编辑器；也可以右键任意工作表标签，选择「查看代码」。
• 在左侧工程窗口找到你的工作簿，双击ThisWorkbook对象。
• 将以下代码粘贴到右侧的代码编辑窗口：

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    ' 自定义工作表标题，可按需修改
    Dim customTitle As String
    customTitle = "月度报表模板"
    
    ' 处理重名：若已有同名工作表，自动添加序号后缀
    Dim i As Integer
    i = 1
    Do While SheetExists(customTitle & IIf(i > 1, "(" & i & ")", ""))
        i = i + 1
    Loop
    Sh.Name = customTitle & IIf(i > 1, "(" & i & ")", "")
    
    ' 设置预设内容与格式
    Sh.Range("A1").Value = customTitle
    Sh.Range("A1").Font.Size = 14
    Sh.Range("A1").Font.Bold = True
    Sh.Range("A2").Value = "报表日期:"
    Sh.Range("B2").Value = Date
    Sh.Range("B2").NumberFormat = "yyyy-mm-dd"
    
    ' 自动调整列宽
    Sh.Columns("A:B").AutoFit
End Sub

' 辅助函数：检查指定名称的工作表是否存在
Private Function SheetExists(sheetName As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets(sheetName)
    On Error GoTo 0
    SheetExists = Not ws Is Nothing
End Function

代码说明 #

• 自定义标题：修改customTitle变量的值，就能设置新建工作表的默认名称，代码会自动处理重名问题（比如已有「月度报表模板」，新建的会命名为「月度报表模板(1)」）。
• 预设内容：通过Sh.Range相关代码，可以添加任意预设文本、日期、公式或格式。示例中设置了标题样式和报表日期，你可以根据需求扩展（比如添加固定表头、公式、条件格式等）。

注意事项 #

• 保存工作簿时必须选择.xlsm格式（启用宏的工作簿），否则VBA代码会丢失。
• 打开文件时需要启用宏，自定义新建功能才能生效。
• 要调整预设内容或格式，直接修改代码中对应的Range操作即可。

内容的提问来源于stack exchange，提问作者Mos