excel - 使用字符串和整数的 Excel VBA 自动筛选错误消息

Question

有人可以帮我克服这个错误。我没有构建 excel 工作表或 VBA 模块，但我的任务是更新它并且我被卡住了。代码如下。我在 BOLD 中的代码出现错误，即：

Sheets(X).Columns(X).Autofilter_
Field:=F

（见下面的完整表达）

---

Sub Reset_Search()

    Dim Str As String
    Dim X As Integer
    Dim Sheetcount As Integer

    Str = ActiveSheet.Name
        Sheetcount = ActiveWorkbook.Sheets.Count
            For X = 2 To Sheetcount
                For F = 1 To 16
                    If F = 1 Then Column = "A"
                    If F = 2 Then Column = "B"
                    If F = 3 Then Column = "C"
                    If F = 4 Then Column = "D"
                    If F = 5 Then Column = "E"
                    If F = 6 Then Column = "F"
                    If F = 7 Then Column = "G"
                    If F = 8 Then Column = "H"
                    If F = 9 Then Column = "I"
                    If F = 10 Then Column = "J"
                    If F = 11 Then Column = "K"
                    If F = 12 Then Column = "L"
                    If F = 13 Then Column = "M"
                    If F = 14 Then Column = "N"
                    If F = 15 Then Column = "O"
                    **Sheets(X).Columns(X).AutoFilter _
                        Field:=F**
                Next F
            Next X

    Sheets(Str).Activate

End Sub

标签： excelvbaautofilter