ExcelVBA自动筛选错误

Question

我正在努力使我的工作更轻松。我有一个带有数据透视表的工作表，它从 ms sql 数据库中获取其数据（如果计数的话，超过 100000 条记录）。我需要自动过滤这些数据。所以我用谷歌搜索它。

我找到了这个 vba 代码：

Private Sub Worksheet_Calculate()
Range("A11").CurrentRegion.AutoFilter field:=6, Criteria1:=Range("d5").Value
End Sub

我的结论是，我可以将其应用于我的案件。

我需要过滤的范围从A11开始，过滤器应通过单元格D6中的值应用于5号字段。

起初它会进行过滤，但随后出现此错误：

对象"范围"的方法"自动筛选"失败

我不知道出了什么问题，excel卡住了，什么也没用

也许有人可以给我一个提示或其他东西。

谢谢。

Answer 1

我建议尝试自动过滤器的完全定义范围，例如：

Sub fdsa()
    Dim LR as Long 'LR is last row
    LR = Cells( Rows.Count, "D").End(xlUp).Row 'Chose Col D to sort as it's the filter range
    Range("A11:O" & LR).AutoFilter field:=6, Criteria1:=Range("D5").Value 'Arbitrarily chose O as the stop column in the range... adjust as necessary
End Sub