求高手指教EXCEL如何用VBA在工作簿中查找包含某字段的行？

用find函数

语法
表达式.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, atchByte,
SearchFormat)
表达式 一个代表 Range 对象的变量。
参数
名称必选/可选数据类型描述What必选Variant要搜索的数据。可为字符串或任意 Microsoft Excel 数据类型。After可选Variant表示搜索过程将从其之后开始进行的单元格。此单元格对应于从用户界面搜索时的活动单元格的位置。请注意：After
必须是区域中的单个单元格。要记住搜索是从该单元格之后开始的；直到此方法绕回到此单元格时，才对其进行搜索。如果不指定该参数，搜索将从区域的左上角的单元格之后开始。LookIn可选Variant信息类型。LookAt可选Variant可为以下 XlLookAt 常量之一：xlWhole 或
xlPart。SearchOrder可选Variant可为以下 XlSearchOrder 常量之一：xlByRows 或
xlByColumns。SearchDirection可选XlSearchDirection搜索的方向。MatchCase可选Variant如果为 True，则搜索区分大小写。默认值为 False。MatchByte可选Variant只在已经选择或安装了双字节语言支持时适用。如果为 True，则双字节字符只与双字节字符匹配。如果为 False，则双字节字符可与其对等的单字节字符匹配。SearchFormat可选Variant搜索的格式。

最最简单的是EXCEL自带的高级筛选功能，只要随便用4个单元格，上面输入年级、班级，下面输入一、1，即可鼠标点点完成数据导入了：
一、鼠标选择表1的数据区域，点上面菜单栏的：数据==>高级==>勾选“将筛选结果复制到其他区域”==>条件区域右侧栏：选择刚刚前面输入的4个单元格==>“复制到”右侧栏点一下工作表2的A2单元格，最后，点“确定”按键，即可实现数据的导入。
学会一招，受益终身，祝你成功

代码如下：

Sub ErCiShangXianFenLei()
    Dim i As Long, arr, m As Integer, n As Integer
    arr = Array("ASP", "SW", "S29", "SP", "BWS", "CWS", "JPP", "QSP")
    
    With Sheets("Sheet1")
       .[a1].Resize(, 8).Copy Sheets("Sheet2").[a1]
        For i = 2 To .[a65536].End(3).Row
            For m = 0 To UBound(arr)
                If .Cells(i, "D") Like "*" & arr(m) & "*" Then
                    GoSub exitM
                    Exit For
                End If
            Next
        Next
        Exit Sub
exitM:
        If .Cells(i, "D").Interior.Color <> vbYellow Then
            n = Sheets("Sheet2").[a65536].End(3).Row + 1
           .Cells(i, "A").Resize(, 8).Copy Sheets("Sheet2").Cells(n, "A")
        End If
        Return
    End With
End Sub

可以点击附件中的“点我”按钮，然后到Sheet2表查询结果！