Excel技术需求：点击按钮按Sheet1单元格值生成、删除对应工作表

核心逻辑 #

1. 读取Sheet1中A列非空单元格的文本，作为需要保留的工作表名称列表
2. 遍历工作簿中所有工作表，删除不在列表内的自定义工作表（保留Sheet1和Sheet2）
3. 检查列表中的每个名称，若对应工作表不存在，则复制Sheet2并重命名

完整VBA代码 #

打开Excel按Alt + F11打开VBA编辑器，插入新模块，粘贴以下代码：

Sub ManageSheets()
    Dim wsSource As Worksheet
    Dim wsTemplate As Worksheet
    Dim targetNames As Collection
    Dim cell As Range
    Dim ws As Worksheet
    Dim nameExists As Boolean
    
    ' 定义源表和模板表
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTemplate = ThisWorkbook.Sheets("Sheet2")
    Set targetNames = New Collection
    
    ' 读取Sheet1 A列非空单元格的名称到集合（自动去重）
    On Error Resume Next
    For Each cell In wsSource.Range("A1:A" & wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row)
        If Trim(cell.Value) <> "" Then
            targetNames.Add cell.Value, Key:=UCase(cell.Value)
        End If
    Next cell
    On Error GoTo 0
    
    ' 删除不在目标列表中的自定义工作表
    Application.DisplayAlerts = False
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> wsSource.Name And ws.Name <> wsTemplate.Name Then
            nameExists = False
            On Error Resume Next
                targetNames.Item(UCase(ws.Name))
                If Err.Number = 0 Then nameExists = True
            On Error GoTo 0
            If Not nameExists Then
                ws.Delete
            End If
        End If
    Next ws
    Application.DisplayAlerts = True
    
    ' 生成缺失的工作表
    Dim name As Variant
    For Each name In targetNames
        On Error Resume Next
            Set ws = ThisWorkbook.Sheets(name)
            If Err.Number <> 0 Then
                wsTemplate.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
                ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = name
            End If
        On Error GoTo 0
    Next name
End Sub

使用说明 #

1. 保存工作簿为启用宏的工作簿（.xlsm）格式
2. 返回Excel界面，右键点击已添加的按钮，选择指定宏，选中ManageSheets后确定
3. 点击按钮即可执行批量操作：
   • 自动删除Sheet1 A列中已移除名称对应的工作表
   • 自动生成A列中新添加名称的工作表（完整复制Sheet2的内容）

注意事项 #

• Sheet1 A列的名称不能包含Excel禁用字符：/ \ ? * [ ]
• 代码已锁定保留Sheet1和Sheet2，不会被误删
• 重复的名称会被自动忽略，避免生成重复工作表

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