嘿，我完全懂你遇到的麻烦——当初写的代码能正常跑，但新增工作表后重复复制粘贴相同逻辑，结果把宏撑得太大触发编译错误，这确实很头疼。其实核心思路就是把重复的隐藏行逻辑封装成通用的可复用子过程，然后通过循环批量处理所有需要操作的工作表，这样不管加多少表，代码量都不会爆炸。

先看看冗余代码的典型问题（模拟你的原有写法） #

比如你原来可能是这样写的，每个工作表单独写一段隐藏逻辑：

Sub Old_HideRows()
    ' 处理Sheet1
    With ThisWorkbook.Worksheets("Sheet1")
        .Rows.Hidden = False
        .Range("A1:A100").AutoFilter Field:=1, Criteria1:="要隐藏的条件"
        .UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Hidden = False
        .UsedRange.SpecialCells(xlCellTypeVisible).EntireRow.Hidden = True
        .AutoFilterMode = False
    End With
    
    ' 处理Sheet2
    With ThisWorkbook.Worksheets("Sheet2")
        .Rows.Hidden = False
        .Range("A1:A100").AutoFilter Field:=1, Criteria1:="要隐藏的条件"
        .UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Hidden = False
        .UsedRange.SpecialCells(xlCellTypeVisible).EntireRow.Hidden = True
        .AutoFilterMode = False
    End With
    
    ' 新增Sheet3、Sheet4...就得继续复制上面的代码，越堆越厚
End Sub

这种写法的问题就是每加一个工作表就要复制一遍相同的代码，很快就会超过VBA的过程大小限制。

优化后的简洁写法 #

我们可以把“根据条件隐藏指定工作表行”的逻辑抽出来做成一个独立的子过程，然后把需要处理的工作表列出来，循环调用这个子过程就行：

' 通用子过程：接收目标工作表和条件，完成隐藏行操作
Sub HideRowsByCondition(targetSheet As Worksheet, hideCriteria As String)
    On Error Resume Next ' 防止没有符合条件的行时出错
    With targetSheet
        .Rows.Hidden = False ' 先取消所有隐藏
        ' 假设条件列是第1列（A列），根据你的实际情况调整Field参数
        .UsedRange.AutoFilter Field:=1, Criteria1:=hideCriteria
        ' 隐藏符合条件的行（注意跳过表头）
        .UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Hidden = True
        .AutoFilterMode = False ' 关闭筛选
    End With
    On Error GoTo 0 ' 恢复错误处理
End Sub

' 主过程：批量处理所有需要操作的工作表
Sub Batch_HideRows()
    Dim wsName As Variant
    Dim ws As Worksheet
    Dim targetSheets As Variant
    Dim hideCondition As String
    
    ' 定义需要处理的工作表名称列表，新增工作表直接加在这里就行
    targetSheets = Array("Sheet1", "Sheet2", "Sheet3", "新增表1", "新增表2")
    ' 定义隐藏条件，也可以改成从某个单元格读取，比如ThisWorkbook.Worksheets("条件表").Range("A1").Value
    hideCondition = "要隐藏的条件"
    
    ' 循环处理每个工作表
    For Each wsName In targetSheets
        Set ws = ThisWorkbook.Worksheets(wsName)
        Call HideRowsByCondition(ws, hideCondition)
    Next wsName
End Sub

优化点说明 #

• 复用性：新增工作表时，只需要在targetSheets数组里添加工作表名称就行，不需要复制粘贴大量重复代码
• 可维护性：如果要调整隐藏逻辑（比如改条件列、改筛选规则），只需要修改HideRowsByCondition这一个地方，不用挨个改每个工作表的代码
• 容错性：加了On Error Resume Next防止没有符合条件的行时触发错误，避免宏中途崩溃

如果你的条件列不是A列，只需要把AutoFilter Field:=1里的数字改成对应的列号就行；如果每个工作表的条件不一样，也可以把hideCondition改成数组，和工作表列表一一对应。

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