Excel VBA问题：实现宏遍历工作表删除指定内容，解决变量未定义报错

原代码存在的问题 #

• 未绑定工作表对象：Cells.Find、Rows、ActiveSheet等操作默认指向当前活动工作表，而非循环遍历的ws，导致逻辑混乱。
• 未处理查找失败场景：若工作表中不存在“Total Capital”，fRg会变为Nothing，直接访问fRg.Row会触发运行时错误。
• 缺少排除指定工作表的逻辑：未实现跳过两个目标工作表的需求。
• 变量声明不规范：在循环内部声明变量，不符合VBA最佳实践（虽不报错，但易引发变量作用域问题）。

修正后的代码 #

Sub DeleteBelowCap()
    Dim ws As Worksheet
    Dim lngFirstRow As Long, lngLastRow As Long
    Dim lngCount As Long
    Dim fRg As Range
    ' 定义需要排除的工作表名称，根据实际需求修改
    Dim excludeSheets As Variant
    excludeSheets = Array("排除表1", "排除表2") ' 替换为你要跳过的两个工作表名

    For Each ws In ThisWorkbook.Worksheets
        ' 检查当前工作表是否在排除列表中，是则跳过
        If Not IsError(Application.Match(ws.Name, excludeSheets, 0)) Then
            GoTo NextSheet
        End If

        ' 在当前工作表中查找“Total Capital”，限定查找范围为当前工作表的已用区域
        Set fRg = ws.Cells.Find(what:="Total Capital", lookat:=xlWhole, LookIn:=xlValues)
        
        ' 仅当找到目标文本时执行删除操作
        If Not fRg Is Nothing Then
            lngFirstRow = fRg.Row + 1
            ' 获取当前工作表的最后一行（避免使用ActiveSheet）
            lngLastRow = ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Row
            
            ' 从下往上删除行，避免因行号变动导致漏删
            For lngCount = lngLastRow To lngFirstRow Step -1
                ws.Rows(lngCount).EntireRow.Delete
            Next lngCount
        End If
        
        Set fRg = Nothing
NextSheet:
    Next ws
End Sub

关键修改说明 #

• 绑定工作表对象：所有单元格、行操作都通过ws.前缀绑定到当前遍历的工作表，确保操作目标正确。
• 添加排除逻辑：用Application.Match检查当前工作表是否在排除列表中，符合则跳过。
• 处理查找失败：通过If Not fRg Is Nothing判断是否找到目标文本，避免空对象报错。
• 规范变量声明：将所有变量声明移至过程开头，符合VBA编码规范。
• 替换ActiveSheet：用ws代替ActiveSheet获取最后一行，确保指向当前遍历的工作表。

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