Excel 使用VBA自动筛选排除两个数字之间的所有值

对于一些只包含数字的数据，我想过滤保留数据1

我已经看到了很多关于排除特定值的主题，但这里不匹配，因为我的值可能是无限的

我尝试了以下代码：

length = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

ThisWorkbook.Sheets("Sheet1").Range("$A$2:$W$" & length).AutoFilter _
    Field:=19, _
    Criteria1:="<-1", _
    Operator:=x1Or, _
    Criteria2:=">1"

length=Cells.Find（内容：=“*”，搜索方向：=xlPrevious，搜索顺序：=xlByRows）。行
ThisWorkbook.Sheets（“Sheet1”）.Range（$A$2:$W$”&length）。自动筛选_
字段：=19_
准则1:=“1”

但弹出错误消息“Range类的自动筛选方法失败”。我也试过使用x1和操作符，但同样的问题

仅尝试此部分时：

length = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

ThisWorkbook.Sheets("Sheet1").Range("$A$2:$W$" & length).AutoFilter _
    Field:=19, _
    Criteria1:="<-1"

length=Cells.Find（内容：=“*”，搜索方向：=xlPrevious，搜索顺序：=xlByRows）。行
ThisWorkbook.Sheets（“Sheet1”）.Range（$A$2:$W$”&length）。自动筛选_
字段：=19_
标准1:=“您输入的代码错误。
x1Or到xlOr
我犯了个愚蠢的错误…谢谢你的帮助。