如何修改VBA代码实现工作簿所有工作表批量删除指定内容行

这是能遍历当前工作簿所有工作表、删除A列以“viz”开头内容行的代码：

Sub tekst_verwijderen()
    Dim ws As Worksheet
    
    ' 遍历当前工作簿的所有工作表
    For Each ws In ThisWorkbook.Worksheets
        With ws
            .AutoFilterMode = False
            ' 锁定当前工作表的A列数据范围，避免跨表错误
            With .Range("a1", .Range("a" & .Rows.Count).End(xlUp))
                .AutoFilter 1, "viz*"
                On Error Resume Next
                ' 删除筛选出的行（跳过表头）
                .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
                On Error GoTo 0 ' 恢复默认错误捕获，防止后续代码忽略异常
            End With
            .AutoFilterMode = False
        End With
    Next ws
End Sub

关键修改说明 #

• 新增工作表循环：用For Each ws In ThisWorkbook.Worksheets遍历所有工作表，替代原代码仅处理ActiveSheet的逻辑
• 限定操作对象：所有Range、Rows前加.（如.Range），确保操作的是当前循环的工作表，避免误操作其他表
• 优化可读性：把SpecialCells(12)替换为更直观的SpecialCells(xlCellTypeVisible)，功能完全一致
• 修复错误捕获：添加On Error GoTo 0，用完临时错误忽略后恢复默认，避免后续代码意外屏蔽错误

额外提示 #

• 如果不想处理隐藏工作表，可在循环内加判断：

  If ws.Visible = xlVisible Then
      ' 把原处理逻辑放在这里
  End If
  

• 运行前建议备份文件，防止误删数据

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