如何在 Excel 中使用進階篩選將資料複製到另一個工作表？

Excel 中的進階篩選功能允許您從數據集中提取和篩選資料。雖然它在同一工作表內運作無縫，但當您嘗試將篩選結果複製到另一個工作表時，可能會遇到警告訊息。在本指南中，我們將逐步向您展示如何使用進階篩選功能和 VBA 程式碼將篩選後的資料複製到另一個工作表。

使用進階篩選功能透過進階篩選將資料複製到另一個工作表

使用 VBA 程式碼透過進階篩選將資料複製到另一個工作表

使用進階篩選功能透過進階篩選將資料複製到另一個工作表

這裡有一個簡單的解決方法來完成這項工作，請按照以下步驟操作：

1. 啟動您要使用進階篩選功能複製篩選結果的工作表。

2. 然後點擊 資料 > 進階，參見截圖：

3在 進階篩選 對話框中，選擇 複製至其他位置 從 操作 部分，然後點擊 按鈕以選擇您要在另一張工作表中篩選的資料區域旁邊的 清單區域，繼續點擊 按鈕旁邊的 條件範圍 以從另一張工作表中選擇條件，參見截圖：

4然後點擊 按鈕旁邊的 複製至 方框以選擇一個單元格，您希望從當前工作表輸出篩選結果，然後點擊 確定 按鈕，篩選結果已經根據您的原始資料表提取到另一張工作表中。

使用 VBA 程式碼透過進階篩選將資料複製到另一個工作表

如果您熟練於 VBA，可以使用以下 VBA 程式碼完成此任務。

1. 啟動您要篩選並將結果複製到另一張工作表的工作表。

2. 在 Excel 中按住 ALT + F11 鍵，打開 Microsoft Visual Basic for Applications 窗口。

3. 點擊 插入 > 模組，並在模組窗口中粘貼以下程式碼。

VBA 程式碼：使用進階篩選將資料複製到另一個工作表：

Sub Advancedfiltertoanothersheet()
'Updateby Extendoffice
    Dim xStr As String
    Dim xAddress As String
    Dim xRg As Range
    Dim xCRg As Range
    Dim xSRg As Range
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)
    If xCRg Is Nothing Then Exit Sub
    Set xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
    xSRg.Worksheet.Activate
    xSRg.Worksheet.Columns.AutoFit
End Sub

4. 然後按下 F5 鍵執行此程式碼，會彈出一個提示框讓您選擇要篩選的資料範圍，參見截圖：

5. 點擊 確定，另一個對話框將出現，提示您選擇篩選條件範圍，如截圖所示：

6. 繼續點擊 確定，在彈出的對話框中，請選擇另一個新工作表中的單元格，您希望輸出篩選結果，參見截圖：

7. 最後，點擊 確定 按鈕，篩選後的資料已根據需要輸出到另一個指定的工作表中。