帮我用vba编写动态筛选指定内容并复制显示到其他表格的代码

以下是一个示例代码，可以根据你的需求进行修改：

Sub FilterAndCopy() Dim wsSource As Worksheet Dim wsDestination As Worksheet Dim filterValue As String Dim lastRow As Long Dim i As Long Dim j As Long

'设置源表格和目标表格
Set wsSource = ThisWorkbook.Sheets("Sheet1")
Set wsDestination = ThisWorkbook.Sheets("Sheet2")

'要筛选的内容
filterValue = "A"

'获取源表格的最后一行
lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row

'循环遍历源表格
For i = 1 To lastRow
    '如果符合筛选条件
    If wsSource.Cells(i, "A").Value = filterValue Then
        '复制该行数据到目标表格
        wsSource.Rows(i).Copy wsDestination.Rows(j)
        j = j + 1
    End If
Next i

End Sub

在这个示例代码中，我们定义了两个工作表：Sheet1和Sheet2。我们将在Sheet1中动态筛选指定内容，并将筛选结果复制到Sheet2中。

要修改代码以适应你的需求，请更改以下代码行：

Set wsSource = ThisWorkbook.Sheets("Sheet1") '将“Sheet1”更改为源工作表的名称 Set wsDestination = ThisWorkbook.Sheets("Sheet2") '将“Sheet2”更改为目标工作表的名称 filterValue = "A" '将“A”更改为你要筛选的内容 If wsSource.Cells(i, "A").Value = filterValue Then '将“A”更改为你要筛选的内容所在的列

你可以根据需要修改其他代码行，例如更改复制的列或更改筛选条件。