如何在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. 最后，点击 确定 按钮，筛选后的数据已根据需要输出到另一个指定的工作表中。