如何使用VBA删除重复工作表？批量处理同名衍生工作表需求

录制宏只能处理固定工作表名称，要批量删除「Asutosh」开头的衍生表（保留原表「Asutosh」），可以用以下VBA代码实现动态匹配：

Sub DeleteDerivedSheets()
    Dim ws As Worksheet
    ' 倒序遍历工作表集合，避免因删除导致索引错乱
    For i = ThisWorkbook.Worksheets.Count To 1 Step -1
        Set ws = ThisWorkbook.Worksheets(i)
        ' 判断工作表名称是否以"Asutosh"开头，且不是原表本身
        If Left(ws.Name, 7) = "Asutosh" And ws.Name <> "Asutosh" Then
            Application.DisplayAlerts = False ' 关闭删除确认提示
            ws.Delete
            Application.DisplayAlerts = True ' 恢复提示设置
        End If
    Next i
End Sub

代码说明： #

• 倒序遍历：删除工作表会改变集合的索引顺序，正序遍历会跳过部分目标表，倒序能确保每个表都被检查到
• Left(ws.Name,7)：提取名称前7个字符（"Asutosh"正好7位），精准匹配前缀
• 关闭提示弹窗：自动跳过删除时的确认步骤，无需手动操作

使用步骤： #

1. 打开目标Excel文件
2. 按下Alt + F11打开VBA编辑器
3. 右键左侧工程窗口的工作簿名称，选择「插入」→「模块」
4. 粘贴上述代码到模块窗口
5. 按F5或点击工具栏运行按钮执行代码

⚠️ 注意：运行前务必保存文件，删除工作表的操作无法撤销。

内容的提问来源于stack exchange，提问作者Tarak Nath Das