vba 筛选A列中包含‘球’字符的行

您可以使用VBA中的AutoFilter方法来筛选出包含‘球’字符的行。以下是一个简单的示例：

Sub FilterData()
    '定义变量
    Dim ws As Worksheet
    Dim rng As Range
    
    '设置工作表和筛选范围
    Set ws = ActiveWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1").CurrentRegion
    
    '应用AutoFilter方法
    With rng
        .AutoFilter Field:=1, Criteria1:="=*球*"
    End With
    
End Sub

请注意，这段代码假设您的数据是在名为"Sheet1"的工作表上，且您要筛选的列是"A"列。您需要根据您的实际情况进行调整。另外，我们使用通配符"*"来表示包含任意字符的位置。因此，"=*球*"表示任何位置都可以包含"球"字符。