Question

我正在尝试根据用户输入使用autofilter过滤数据。用户可以选中一个框，数据应该被过滤掉。我在定义使用autofilter的范围时遇到了问题。

以下是我目前正在运行的代码：

dim WholeSheetRange as Range    
'turn on autofilter if not on
If Not ActiveSheet.FilterMode Then
    ActiveSheet.Range("A1").AutoFilter
End If

Set WholeSheetRange = Range("A1:M" & LastRow(ActiveSheet))

If stn_DEN.Value = True Then
   WholeSheetRange.AutoFilter Field:=4, Criteria1:="=DEN"
ElseIf stn_EWR.Value = True Then
   WholeSheetRange.AutoFilter Field:=4, Criteria1:="=EWR"
ElseIf stn_IAD.Value = True Then
   WholeSheetRange.AutoFilter Field:=4, Criteria1:="=IAD"

End If

目前导致数组出现错误。

Answer 1

此行中的函数 LastRow（）不存在：

Set WholeSheetRange = Range("A1:M" & LastRow(ActiveSheet))

（可能还有其他错误）

AutoFilter问题并定义导致预期阵列错误的范围

1 个答案: