试试这个

Private Sub WorksheetLoop()
    Dim ws As Worksheet
    Dim WS_Count As Integer
    Dim I As Integer
    
    WS_Count = ActiveWorkbook.Worksheets.Count
         ' Begin the loop.
    For I = 1 To WS_Count
    'For Each Ws In Workbooks
        Set ws = ActiveWorkbook.Worksheets(I)
        If Application.WorksheetFunction.Sum(ActiveWorkbook.Worksheets(I).Range("N:N")) > 20000 Then
            ws.Range("N:N").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria1:="<>0" 
        End If
    Next I

End Sub

一次过滤所有工作表

Option Explicit

Sub ApplyFilters()
    Const PROC_TITLE As String = "Apply Filters"
    On Error GoTo ClearError ' start error-handling routine
    
    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    
    Dim ws As Worksheet, Total
    
    For Each ws In wb.Worksheets
        With ws
            If .FilterMode Then .ShowAllData ' clear filters
            If .AutoFilterMode Then .AutoFilterMode = False ' avoid wrong cols.
            With .Range("A1").CurrentRegion ' assumes no empty rows or columns
                'Debug.Print .Address(0, 0)
                If .Rows.Count > 1 Then
                    Total = Application.Sum(.Columns("N") _
                        .Resize(.Rows.Count - 1).Offset(1))
                    If IsNumeric(Total) Then
                        If Total > 20000 Then
                            .AutoFilter 7, "<>0"
                        End If
                    End If
                End If
            End With
        End With
    Next ws

    MsgBox "Filters applied.", vbInformation, PROC_TITLE

ProcExit:
    Exit Sub
ClearError: ' continue error-handling routine
    MsgBox "Run-time error '" & Err.Number & "':" & vbLf & vbLf _
        & Err.Description, vbCritical, PROC_TITLE
    Resume ProcExit
End Sub

在每个循环处添加一行以激活相应的工作表：

WS_Count = ActiveWorkbook.Worksheets.Count
' Begin the loop.
    For I = 1 To WS_Count
       'For Each Ws In Workbooks
           ActiveWorkbook.Sheets(I).Activate
           If WorksheetFunction.Sum(Range("N:N")) > 20000 Then
               ActiveSheet.Range("A:P").AutoFilter Field:=7, Criteria1:="<> 0    
           End If
     Next I

希望有帮助，再见