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

代码如下：

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表查询结果！

怎样才能分辨出是不是二次生产呢？
您的问题不难，只是一个循环和一个改变属性的问题。
写一个vba的宏就搞定了。
另外可否发一个样表到我邮箱，方便修改。

二次上线是什么意思？