如何在Excel中使用“高級篩選器”將數據復制到另一個工作表？

通常，我們可以快速應用 進階篩選 此功能可從同一工作表中的原始數據中提取數據。 但是，有時，當您嘗試將篩選的結果復制到另一個工作表時，會收到以下警告消息。 在這種情況下，您如何在Excel中處理此任務？

通過使用高級篩選器功能將數據復制到另一個工作表與高級篩選器

使用VBA代碼使用高級篩選器將數據復制到另一個工作表

通過使用高級篩選器功能將數據復制到另一個工作表與高級篩選器

這是您解決此問題的簡單解決方法，請按照以下步驟操作：

1。 通過使用“高級篩選器”功能激活要在其中復制篩選結果的工作表。

2。 然后點擊 Data > 先進，請參見屏幕截圖：

3。 在 進階篩選 對話框中選擇 復制到另一個位置 來自 操作 部分，然后單擊 按鈕以選擇要過濾的數據范圍。 清單范圍，繼續點擊 旁邊的按鈕 條件范圍 要從另一張表中選擇條件，請參見屏幕截圖：

4。 然后點擊 旁邊的按鈕 復制到 框中選擇一個單元格，要在其中從活動工作表中輸出過濾的結果，然后單擊 OK 按鈕，已過濾的結果已基于您的原始數據表提取到另一張表中。

使用VBA代碼使用高級篩選器將數據復制到另一個工作表

如果您精通VBA代碼，則可以使用以下VBA代碼完成此工作。

1。 激活要過濾的工作表，然后將結果復制到另一個工作表。

2。 按住 ALT + F11 鍵，然后打開 Microsoft Visual Basic應用程序 窗口。

3。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。

VBA代碼：使用高級過濾器將數據復制到另一個工作表：

Sub Advancedfiltertoanothersheet()Updateby ExtendofficeDim xStr As StringDim xAddress As StringDim xRg As RangeDim xCRg As RangeDim xSRg As RangeOn Error Resume NextxAddress = ActiveWindow.RangeSelection.AddressSet xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)If xRg Is Nothing Then Exit SubSet xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)If xCRg Is Nothing Then Exit SubSet xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)If xSRg Is Nothing Then Exit SubxRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, FalsexSRg.Worksheet.ActivatexSRg.Worksheet.Columns.AutoFitEnd SubCopy

4。 然后按 F5 鍵運行此代碼，并彈出一個提示框，讓您選擇要過濾的數據范圍，請參見屏幕截圖：

5。 然后點擊 OK，然后會彈出另一個對話框，提醒您選擇要基于其過濾的條件范圍，請參見屏幕截圖：

6。 繼續點擊 OK，在彈出的對話框中，請從另一個新的工作表中選擇一個要輸出過濾結果的單元格，請參見屏幕截圖：

7。 最后點擊 OK 按鈕，已過濾的數據已根據需要輸出到另一個指定的工作表中。

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel