引用不连续区域以应用自动筛选

• 所有四个解决方案都可以（应该）起作用。欢迎您的反馈。
• 经验法则：不要让Excel决定（如果不需要）...在这种情况下，
• 为您设定范围 *。

Sub FilterData()
    
    Dim ws As Worksheet: Set ws = ActiveSheet
    If ws.FilterMode Then ws.ShowAllData ' clears any filters
    
    Dim rg As Range
    ' If your data is the only thing in the worksheet:
    Set rg = ws.UsedRange
'    ' If there are more columns:
'    Set rg = Intersect(ws.UsedRange, ws.Columns("A:K"))
'    ' or:
'    Dim rg As Range: Set rg = ws.Columns("A:K")
'    Dim lCell As Range
'    Set lCell = rg.Find("*", , xlFormulas, , xlByRows, xlPrevious)
'    Set rg = rg.Resize(lCell.Row)
'    ' If additionally there are other data below your data:
'    Set rg = ws.Range("A1").CurrentRegion.Resize(, 11) ' K = 11
    
    rg.AutoFilter Field:=10, Criteria1:="#N/A"

End Sub

您的工作表是否受到保护？如果是，我建议您移除工作表保护，并在筛选程式码之后重新加入。