基于单元格值删除指定非活动工作表（VBA实现）

下面是针对你需求的完整代码，我会一步步解释怎么用，适合刚接触VBA的新手：

Sub DeleteSheetsByCondition()
    Dim dataSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 替换成你存放B列和I列数据的工作表名称
    Set dataSheet = ThisWorkbook.Worksheets("数据清单")
    
    ' 获取数据的最后一行，避免遍历空行
    lastRow = dataSheet.Cells(dataSheet.Rows.Count, "B").End(xlUp).Row
    
    ' 关闭删除工作表的确认提示，批量操作更顺畅
    Application.DisplayAlerts = False
    
    ' 从第2行开始遍历（假设第1行是表头）
    For i = 2 To lastRow
        ' 检查I列当前行的值是否是A/B/C/D中的一个
        Select Case UCase(dataSheet.Cells(i, "I").Value)
            Case "A", "B", "C", "D"
                ' 尝试找到B列指定名称的工作表
                On Error Resume Next ' 防止找不到工作表时报错
                Set targetSheet = ThisWorkbook.Worksheets(dataSheet.Cells(i, "B").Value)
                On Error GoTo 0 ' 恢复错误提示
                
                ' 如果找到对应的工作表，就删除它
                If Not targetSheet Is Nothing Then
                    targetSheet.Delete
                    Set targetSheet = Nothing ' 清空对象变量
                End If
        End Select
    Next i
    
    ' 恢复确认提示
    Application.DisplayAlerts = True
    
    MsgBox "指定工作表已完成删除！"
End Sub

关键部分说明： #

• 指定数据工作表：把"数据清单"改成你实际存放B列和I列数据的工作表名称，比如你的数据在"Sheet1"里就替换成这个。
• 遍历范围：For i = 2 To lastRow默认第1行是表头，如果你的表头在其他行，修改数字即可。
• 关闭确认提示：Application.DisplayAlerts = False会让Excel自动确认删除，不用手动点确定，批量处理必备。
• 错误处理：On Error Resume Next是防止B列里的名称不存在对应的工作表时代码崩溃，找不到的话直接跳过该行。

注意事项： #

1. 先备份文件！删除工作表是不可逆操作，一定要先存好备份再运行代码。
2. 确保B列的工作表名称完全准确，大小写、空格都要和实际工作表名一致，否则找不到就不会执行删除。
3. 如果数据里有重复的工作表名，代码只会删除一次（因为删除后工作表就不存在了），不会报错。

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