删除指定工作表：保留main和dataset工作表的代码异常问题

这个问题我碰到过好多次啦！核心原因是你遍历工作表的方式不对——当你删除工作表时，工作表集合的索引会动态变化，导致前面的表被跳过，最后只删了末尾的几个：

• 如果你用正向循环（比如For i = 1 To ThisWorkbook.Worksheets.Count）或者For Each遍历，删除一个工作表后，后面的工作表会自动向前移动一位索引。比如删了第2个表，原来的第3个表就变成了新的第2个，循环到i=3时就直接跳过了这个新的第2个表，自然没法删干净。

正确的做法是从最后一个工作表往第一个遍历，这样删除前面的表不会影响还没处理的表的索引，所有需要删除的表都会被检查到。

Sub DeleteUnwantedSheets()
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 关闭删除确认提示，避免弹窗干扰
    Application.DisplayAlerts = False
    
    ' 从最后一个工作表开始反向循环
    For i = ThisWorkbook.Worksheets.Count To 1 Step -1
        Set ws = ThisWorkbook.Worksheets(i)
        ' 判断当前工作表名称是否不在保留列表中
        If ws.Name <> "main" And ws.Name <> "dataset" Then
            ws.Delete
        End If
    Next i
    
    ' 恢复提示设置
    Application.DisplayAlerts = True
    
    MsgBox "已完成删除操作，仅保留main和dataset工作表！"
End Sub

• 反向循环：Step -1让我们从工作表总数开始，每次减1，确保每个工作表都被检查到，不会因为删除操作导致索引混乱。
• 关闭警告：Application.DisplayAlerts = False会自动确认删除操作，不用手动点击弹窗；处理完一定要设回True，不然后续操作的警告也会被屏蔽。
• 边界判断：如果工作簿里本来就只有"main"和"dataset"两个表，代码会自动跳过删除步骤，不会报错。

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