VBA删除非指定CodeName工作表误删保留表的代码问题排查

问题现象 #

实现批量删除工作表的VBA脚本运行效果与预期不符：预期删除所有CodeName不等于指定值的工作表，实际误删了需要保留的CodeName为Tasks_Complete、Issues_Tasks的工作表，反而留下了待删除的工作表。
原始代码如下：

For each ws In wb.worksheets
    If ws.CodeName <> “Tasks_Complete” And ws.CodeName <> “Issues_Tasks” Then
        ws.Delete
    End If
Next ws 

故障原因 #

代码存在两个明确问题：

• 遍历顺序错误：使用For Each正序遍历Worksheets集合时，每删除一个工作表，集合内后续元素的索引会自动前移，但遍历指针会继续向后移动，直接跳过一个工作表，最终出现遍历错位，导致判定逻辑完全混乱，本该跳过的保留工作表被误判为待删除对象。
• 符号使用错误：代码中包裹工作表名称的是中文全角双引号“”，VBA无法识别该符号为字符串边界，会导致字符串匹配逻辑失效，进一步加剧判定错误。

修正方法 #

• 倒序遍历工作表集合，从索引最大的最后一个工作表开始向前遍历，彻底避免删除元素后集合索引移位导致的遍历错位
• 将所有全角引号替换为VBA支持的英文半角双引号""
• 临时关闭删除确认弹窗，避免每次删除都弹出提示中断脚本运行，操作完成后恢复默认设置

修正后的可运行代码：

Application.DisplayAlerts = False
Dim i As Long
' 从最后一个工作表开始倒序遍历
For i = wb.Worksheets.Count To 1 Step -1
    Set ws = wb.Worksheets(i)
    If ws.CodeName <> "Tasks_Complete" And ws.CodeName <> "Issues_Tasks" Then
        ws.Delete
    End If
Next i
Application.DisplayAlerts = True

注意事项 #

Excel要求工作簿必须至少保留1个可见工作表，如果脚本运行时两个指定保留的工作表都不存在，会触发运行时错误，可根据实际业务需求补充对应存在性校验逻辑。

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