像冠軍一樣工作，如此簡單。 非常感謝！

嗨，這很好用，但僅在手動更改表中的數據時。

我有一個“前十名/排行榜”樣式的過濾表，該表是從單獨的工作表上的數據輸入中填充的（實際上，數據在到達表之前要經過 3 個工作表）。 當數據輸入工作表中的數據發生更改時，排行榜表格數據會更新，但過濾器不會自動刷新。
關於如何做到這一點的任何想法？
非常感謝。
亞歷克斯

嗨，非常感謝您的幫助。 有些東西不適合我。 這是故事。

Sheet1 具有可變數據。 Sheet3 具有靜態數據和過濾器。 “Sheet3”上的過濾條件來自 Sheet1。 Sheet1 的數據來自 Sheet3 上的過濾結果。

Sheet3有代碼：

私人子工作表_SelectionChange（ByVal Target As Range）
Range("A1:U14").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A22:U23"), CopyToRange:=Range("A25:U26"), Unique:=False
END SUB

如果我在 Sheet3 上做任何事情，效果會很好。 沒問題。 謝謝！

起初我在 Sheet1 上有代碼：

Private Sub Worksheet_Change（ByVal Target As Range）
Sheets("Sheet3").AutoFilter.ApplyFilter
END SUB

這導致錯誤“運行時錯誤 91，對像變量或未設置塊”。

我根據註釋將代碼更改為：

Private Sub Worksheet_Change（ByVal Target As Range）
在錯誤恢復下一頁
Sheets("Sheet3").AutoFilter.ApplyFilter
END SUB

現在我沒有收到錯誤，但 Sheet3 和 Sheet1 上的數據不會改變。 換句話說，當我對 Sheet3 進行更改時，不會發生將過濾器應用於 Sheet1 的事件。 我打沒關係或在更改在 Sheet3 上設置的 Sheet1 過濾條件單元格後單擊另一個單元格。

順便說一句，我希望如果我想在 Sheet1 上有多個單元格，這會導致除了 Sheet4 之外的 Sheet 5 和 3 上的過濾器，我需要 Sheet 1 上的代碼來閱讀：

Private Sub Worksheet_Change（ByVal Target As Range）
在錯誤恢復下一頁
Sheets("Sheet3").AutoFilter.ApplyFilter
Sheets("Sheet4").AutoFilter.ApplyFilter
Sheets("Sheet5").AutoFilter.ApplyFilter
END SUB

再次感謝！