使用vba筛选显示指定内容到其他工作表

以下是一个简单的VBA代码示例，可以帮助您筛选特定内容并将其显示在其他工作表中：

Sub Filter_And_Copy()

Dim wsSource As Worksheet Dim wsDestination As Worksheet Dim rngData As Range Dim rngCriteria As Range

Set wsSource = ThisWorkbook.Worksheets("Sheet1") '将“Sheet1”更改为要筛选的源工作表名称 Set wsDestination = ThisWorkbook.Worksheets("Sheet2") '将“Sheet2”更改为要显示筛选结果的目标工作表名称

Set rngData = wsSource.Range("A1:E10") '将“A1:E10”更改为要筛选的数据范围 Set rngCriteria = wsSource.Range("G1") '将“G1”更改为包含筛选条件的单元格

rngData.AutoFilter Field:=3, Criteria1:=rngCriteria.Value '将“3”更改为要筛选的列号

rngData.SpecialCells(xlCellTypeVisible).Copy '复制可见单元格

wsDestination.Range("A1").PasteSpecial xlPasteValues '将筛选结果粘贴到目标工作表

wsSource.AutoFilterMode = False '关闭筛选

End Sub

在此示例中，我们将从“Sheet1”工作表中的“A1:E10”范围中筛选第三列（即列“C”），并将筛选结果复制到“Sheet2”工作表中的“A1”单元格。筛选条件存储在“G1”单元格中。最后，我们关闭筛选以恢复工作表的原始状态。

请注意，此代码示例仅适用于简单的单列筛选。对于更复杂的筛选需求，您可能需要使用更高级的VBA技术。