帮我用vba编写动态筛选内容

以下是一个简单的VBA代码示例，它可以动态筛选内容：

Sub DynamicFilter() Dim ws As Worksheet Set ws = ActiveSheet

Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

Dim filterRange As Range
Set filterRange = ws.Range("A1:A" & lastRow)

Dim filterValue As String
filterValue = InputBox("请输入您要筛选的内容")

If filterValue = "" Then
    filterRange.AutoFilter
Else
    filterRange.AutoFilter Field:=1, Criteria1:="*" & filterValue & "*"
End If

End Sub

这个代码会先确定当前工作表，然后找到列A中的最后一行。接着，它会提示用户输入要筛选的内容，并将其存储在一个字符串变量中。如果用户未输入任何内容，则自动取消筛选。否则，它将使用AutoFilter方法来按照包含该字符串的行进行筛选。

请注意，此代码只是一个简单的示例，可以根据您的具体需求进行修改和扩展。