基于A1单元格值删除工作表的VBA代码出现Run-Time error 13求排查

问题场景 #

这段VBA代码用于删除A1单元格内容为Delete的工作表，在某一工作簿中可正常运行，但在另一工作簿触发Run-Time Error 13（类型不匹配）：

Sub DeleteTabs()
    Dim ws As Worksheet
    Application.DisplayAlerts = False
    
    For Each ws In ThisWorkbook.Sheets
        If ws.Cells(1, 1).Value = "Delete" Then
            ws.Delete
        End If
    Next ws
    
    Application.DisplayAlerts = True
End Sub

错误原因排查 #

• 单元格A1数据类型不兼容：如果目标工作簿里部分工作表的A1单元格不是文本类型（比如是数值、错误值#N/A/#VALUE!，或是日期、布尔值），直接和字符串Delete做相等判断就会触发类型不匹配。比如A1是数值0，或者单元格返回错误值，对比字符串时必然报错。
• 遍历到特殊类型工作表：ThisWorkbook.Sheets会包含所有工作表类型，包括图表工作表（Chart Sheet）。这类工作表没有Cells对象，调用ws.Cells(1,1)时直接报错，引发类型不匹配。
• 单元格存在特殊内容：如果A1是数组公式返回的结果，或是合并单元格的一部分，Value属性可能返回数组而非单个值，和字符串对比时出现类型冲突。
• 工作表处于特殊状态：如果工作表被保护且A1单元格锁定，可能无法正常读取Value属性；或是工作表处于筛选、隐藏状态，导致Cells(1,1)读取异常，间接引发类型不匹配。

修复建议 #

• 只遍历普通工作表：把For Each ws In ThisWorkbook.Sheets改成For Each ws In ThisWorkbook.Worksheets，跳过图表工作表这类特殊表。
• 增加错误判断：先检查单元格值是否为错误值，再统一转换为字符串后对比，避免类型冲突：

  Sub DeleteTabs()
      Dim ws As Worksheet
      Application.DisplayAlerts = False
      
      For Each ws In ThisWorkbook.Worksheets
          If Not IsError(ws.Cells(1, 1).Value) Then
              If CStr(ws.Cells(1, 1).Value) = "Delete" Then
                  ws.Delete
              End If
          End If
      Next ws
      
      Application.DisplayAlerts = True
  End Sub
  

• 添加错误捕获：如果需要兼容更多特殊情况，可以加入错误捕获语句，避免单个工作表的异常导致整个程序终止：

  Sub DeleteTabs()
      Dim ws As Worksheet
      Application.DisplayAlerts = False
      
      For Each ws In ThisWorkbook.Worksheets
          On Error Resume Next
          If CStr(ws.Cells(1, 1).Value) = "Delete" Then
              ws.Delete
          End If
          On Error GoTo 0
      Next ws
      
      Application.DisplayAlerts = True
  End Sub
  

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