將變量用作自動過濾器（VBA）的列

Question

我想使用變量作為vba中自動過濾器的列，我認為我沒有得到正確的sintax，因為它不起作用：

With ActiveSheet
.AutoFilterMode = False
With .Range("A1:" & LastCol + 1 & "1")
.AutoFilter
.AutoFilter field:=5, Criteria1:="Approved"
.AutoFilter field:=6, Criteria1:="Open"
.AutoFilter field:=LastCol + 1, Criteria1:="1"
End With
End With

Answer 1

如果沒有空白列，則可以改用CurrentRegion （類似於A1的Ctrl + A）

ActiveSheet.AutoFilterMode = False
With Cells.CurrentRegion
    .AutoFilter 5, "Approved"
    .AutoFilter 6, "Open"
    .AutoFilter .Columns.Count, "1"
End With