Excel 循环代码失败

我想让下面的代码在我所有的工作表中运行。我大约有20张。我错过了什么

Sub Filter1()
    Dim wSheet As Worksheet
    Dim i As Long

    For i = 0 To ActiveWorkbook.Worksheets.Count        
       ActiveSheet.Range("$Q$1:$Q$90").AutoFilter Field:=1, Criteria1:="<>"
       ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
       ActiveSheet.Select        
    Next i

End Sub

子过滤器1（）
将工作表设置为工作表
我想我会坚持多久
对于i=0到ActiveWorkbook.Worksheets.Count
ActiveSheet.Range（“$Q$1:$Q$90”）。自动筛选字段：=1，标准1:=“”
ActiveSheet.Outline.ShowLevel行级别：=0，列级别：=1
活动表。选择
接下来我
端接头

试试这个：

Sub Filter1()
    Dim i As Integer
    For i = 1 To ThisWorkbook.Worksheets.Count
       ThisWorkbook.Worksheets(i).Range("$Q$1:$Q$90").AutoFilter Field:=1, Criteria1:="<>"
       ThisWorkbook.Worksheets(i).Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
    Next i
End Sub

子过滤器1（）
作为整数的Dim i
对于i=1，请单击thiswook.Worksheets.Count
ThisWorkbook.Worksheets（i）.范围（“$Q$1:$Q$90”）。自动筛选字段：=1，标准1:=“”
ThisWorkbook.Worksheets（i）.Outline.ShowLevel行级别：=0，列级别：=1
接下来我
端接头

试试这个：

Sub Filter1()
    Dim i As Integer
    For i = 1 To ThisWorkbook.Worksheets.Count
       ThisWorkbook.Worksheets(i).Range("$Q$1:$Q$90").AutoFilter Field:=1, Criteria1:="<>"
       ThisWorkbook.Worksheets(i).Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
    Next i
End Sub

子过滤器1（）
作为整数的Dim i
对于i=1，请单击thiswook.Worksheets.Count
ThisWorkbook.Worksheets（i）.范围（“$Q$1:$Q$90”）。自动筛选字段：=1，标准1:=“”
ThisWorkbook.Worksheets（i）.Outline.ShowLevel行级别：=0，列级别：=1
接下来我
端接头

试试这个：

Sub Filter1()
    Dim i As Integer
    For i = 1 To ThisWorkbook.Worksheets.Count
       ThisWorkbook.Worksheets(i).Range("$Q$1:$Q$90").AutoFilter Field:=1, Criteria1:="<>"
       ThisWorkbook.Worksheets(i).Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
    Next i
End Sub

子过滤器1（）
作为整数的Dim i
对于i=1，请单击thiswook.Worksheets.Count
ThisWorkbook.Worksheets（i）.范围（“$Q$1:$Q$90”）。自动筛选字段：=1，标准1:=“”
ThisWorkbook.Worksheets（i）.Outline.ShowLevel行级别：=0，列级别：=1
接下来我
端接头

试试这个：

Sub Filter1()
    Dim i As Integer
    For i = 1 To ThisWorkbook.Worksheets.Count
       ThisWorkbook.Worksheets(i).Range("$Q$1:$Q$90").AutoFilter Field:=1, Criteria1:="<>"
       ThisWorkbook.Worksheets(i).Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
    Next i
End Sub

子过滤器1（）
作为整数的Dim i
对于i=1，请单击thiswook.Worksheets.Count
ThisWorkbook.Worksheets（i）.范围（“$Q$1:$Q$90”）。自动筛选字段：=1，标准1:=“”
ThisWorkbook.Worksheets（i）.Outline.ShowLevel行级别：=0，列级别：=1
接下来我
端接头

您从未实际使用

i

选择工作表？将

ActiveSheet

更改为

active工作簿。工作表（i）

并删除

ActiveSheet.Select

所以我这样做了：“过滤宏Dim wSheet作为工作表Dim i，只要i=0到ActiveWorkbook.Worksheets.Count ActiveWorkbook.Worksheets（i）.Range（$Q$1:$Q$90”）。自动筛选字段：=1，准则1:=”“ActiveSheet.Outline.ShowLevels行级别：=0，ColumnLevels:=1下一个i End Sub

ActiveSheet.Outline。

还将更改为

ActiveWorkbook.Worksheets（i）.Outline。

Sub Filter1（）''将宏Dim WSSheet筛选为工作表Dim i，只要i=0到ActiveWorkbook.Worksheets.Count ActiveWorksheets（i）.Range（$Q$1:$Q$90）.AutoFilter字段：=1，标准1:=“ActiveWorkbook.Worksheets（i）.Outline.ShowLevel RowLevel:=0，ColumnLevel:=1下一个i End子项您从未实际使用

i

选择工作表？将

ActiveSheet

更改为

ActiveWorkbook.Worksheets（i）

并删除

ActiveSheet.Select

所以我这样做了：“过滤宏Dim wSheet作为工作表Dim i，只要i=0到ActiveWorkbook.Worksheets.Count ActiveWorkbook.Worksheets（i）.Range（$Q$1:$Q$90”）。自动筛选字段：=1，准则1:=”“ActiveSheet.Outline.ShowLevels行级别：=0，ColumnLevels:=1下一个i End Sub

ActiveSheet.Outline。

还将更改为

ActiveWorkbook.Worksheets（i）.Outline。

Sub Filter1（）''将宏Dim WSSheet筛选为工作表Dim i，只要i=0到ActiveWorkbook.Worksheets.Count ActiveWorksheets（i）.Range（$Q$1:$Q$90）.AutoFilter字段：=1，标准1:=“ActiveWorkbook.Worksheets（i）.Outline.ShowLevel RowLevel:=0，ColumnLevel:=1下一个i End子项您从未实际使用

i

选择工作表？将

ActiveSheet

更改为

ActiveWorkbook.Worksheets（i）

并删除

ActiveSheet.Select

所以我这样做了：“过滤宏Dim wSheet作为工作表Dim i，只要i=0到ActiveWorkbook.Worksheets.Count ActiveWorkbook.Worksheets（i）.Range（$Q$1:$Q$90”）。自动筛选字段：=1，准则1:=”“ActiveSheet.Outline.ShowLevels行级别：=0，ColumnLevels:=1下一个i End Sub

ActiveSheet.Outline。

还将更改为

ActiveWorkbook.Worksheets（i）.Outline。

Sub Filter1（）''将宏Dim WSSheet筛选为工作表Dim i，只要i=0到ActiveWorkbook.Worksheets.Count ActiveWorksheets（i）.Range（$Q$1:$Q$90）.AutoFilter字段：=1，标准1:=“ActiveWorkbook.Worksheets（i）.Outline.ShowLevel RowLevel:=0，ColumnLevel:=1下一个i End子项您从未实际使用

i

选择工作表？将

ActiveSheet

更改为

ActiveWorkbook.Worksheets（i）

并删除

ActiveSheet.Select

所以我这样做了：“过滤宏Dim wSheet作为工作表Dim i，只要i=0到ActiveWorkbook.Worksheets.Count ActiveWorkbook.Worksheets（i）.Range（$Q$1:$Q$90”）。自动筛选字段：=1，准则1:=”“ActiveSheet.Outline.ShowLevels行级别：=0，ColumnLevels:=1下一个i End Sub

ActiveSheet.Outline。

还将更改为

ActiveWorkbook.Worksheets（i）.Outline。

Sub Filter1（）''将宏Dim WSSheet筛选为工作表Dim i，只要i=0到ActiveWorkbook.Worksheets.Count ActiveWorksheets（i）.Range（$Q$1:$Q$90）.AutoFilter字段：=1，准则1:=“”活动工作簿。工作表（i）。Outline.ShowLevel行级别：=0，ColumnLevel:=1下一个i结束子项