[英]Excel VBA autofilter error
我正在努力使我的工作更輕松。 我有一個帶有數據透視表的工作表,該數據表從ms sql數據庫獲取數據(超過100000條記錄,如果算在內)。 我需要自動過濾這些數據。 所以我用谷歌搜索。
我發現了這個VBA代碼:
Private Sub Worksheet_Calculate()
Range("A11").CurrentRegion.AutoFilter field:=6, Criteria1:=Range("d5").Value
End Sub
我得出的結論是,我可以將其應用於我的案件。
我需要過濾的范圍從A11開始,該過濾器應通過單元格D5中的值應用於字段6。
起初它會進行過濾,但隨后出現此錯誤:
對象“范圍”的方法“自動過濾”失敗
我不知道怎么了,excel卡住了,什么也沒用
也許有人可以給我一些提示。
謝謝。
我建議嘗試使用自動過濾器的完全定義范圍,例如:
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
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.