针对你这个需求，用Excel VBA来实现是最直接高效的方案，我给你整理了完整的实现步骤和代码，你可以根据自己的实际表格结构调整：

核心思路 #

1. 捕获用户在项目列表中选中的行
2. 读取选中行里的ID、名称等指定字段数据
3. 复制预设的模板工作表，并用选中行的ID作为新工作表的名称
4. 将读取到的字段数据写入新工作表的指定单元格位置

步骤1：确认基础配置 #

在开始写代码前，你需要先明确几个关键信息（后面代码里要对应修改）：

• 模板工作表的名称：比如默认叫Template
• 项目列表所在的工作表名称：比如叫项目列表
• 项目列表中各字段的列位置：比如ID在A列、名称在B列、其他字段对应列
• 新工作表中需要填充数据的目标单元格：比如ID填到新表的A1单元格、名称填到B1单元格

步骤2：编写VBA代码 #

按Alt + F11打开VBA编辑器，插入一个新的模块，然后粘贴以下代码：

Sub CreateWorksheetFromSelectedRow()
    Dim wsList As Worksheet
    Dim wsTemplate As Worksheet
    Dim wsNew As Worksheet
    Dim selectedRow As Range
    Dim rowID As String
    Dim rowName As String
    Dim otherField As String ' 可根据需求添加更多字段
    
    ' 定义工作表对象（根据你的实际名称修改）
    Set wsList = ThisWorkbook.Worksheets("项目列表")
    Set wsTemplate = ThisWorkbook.Worksheets("Template")
    
    ' 检查是否选中了行
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中项目列表中的一行数据！", vbExclamation
        Exit Sub
    End If
    
    ' 只处理选中的第一行（如果需要支持多行，可改为循环处理）
    Set selectedRow = Selection.Rows(1)
    
    ' 读取选中行的字段数据（根据你的列位置修改）
    rowID = selectedRow.Cells(1, 1).Value ' A列是ID
    rowName = selectedRow.Cells(1, 2).Value ' B列是名称
    ' otherField = selectedRow.Cells(1, 3).Value ' 示例：C列是其他字段
    
    ' 检查ID是否为空
    If rowID = "" Then
        MsgBox "选中行的ID不能为空！", vbExclamation
        Exit Sub
    End If
    
    ' 检查是否已存在同名工作表
    On Error Resume Next
    Set wsNew = ThisWorkbook.Worksheets(rowID)
    On Error GoTo 0
    If Not wsNew Is Nothing Then
        MsgBox "已存在ID为" & rowID & "的工作表，请更换ID或删除已有工作表！", vbExclamation
        Exit Sub
    End If
    
    ' 复制模板工作表
    wsTemplate.Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    Set wsNew = ActiveSheet
    
    ' 重命名新工作表为ID
    wsNew.Name = rowID
    
    ' 将数据写入新工作表的指定单元格（根据你的目标位置修改）
    wsNew.Cells(1, 1).Value = rowID ' 新表A1填ID
    wsNew.Cells(1, 2).Value = rowName ' 新表B1填名称
    ' wsNew.Cells(1, 3).Value = otherField ' 示例：新表C1填其他字段
    
    MsgBox "工作表" & rowID & "已成功创建并填充数据！", vbInformation
End Sub

代码关键部分解释 #

• 选中行处理：代码默认只处理选中的第一行，如果需要支持批量选中多行生成多个工作表，只需把Set selectedRow = Selection.Rows(1)改成循环遍历Selection.Rows即可
• 重复工作表检查：避免生成重复名称的工作表，防止报错
• 数据映射：你需要根据自己的表格结构，修改读取字段的列号和写入新表的单元格位置

步骤3：关联按钮与宏 #

1. 回到Excel界面，点击「开发工具」选项卡（如果没显示，可在选项里开启）
2. 点击「插入」，选择「表单控件」里的按钮
3. 绘制按钮后，在弹出的对话框中选择刚才创建的CreateWorksheetFromSelectedRow宏
4. 修改按钮的显示文字为「新建工作表」即可

注意事项 #

• 确保你的Excel文件启用了宏（保存时选择.xlsm格式）
• 模板工作表Template不要删除或重命名，否则代码会报错
• 如果需要添加更多字段，只需在代码中增加对应的读取和写入逻辑即可

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