l练习练习……
Sub test()
Dim arr, rng As Range, i%, r%
r = Sheet1.Cells(Rows.Count, 1).End(3).Row
arr = Sheet1.Range("A1:A" & r)
For i = 2 To UBound(arr)
If InStr(arr(i, 1), "序号") > 0 Or Len(arr(i, 1)) < 1 Then
If rng Is Nothing Then
Set rng = Rows(i)
Else
Set rng = Union(rng, Rows(i))
End If
End If
Next
rng.Delete
End Sub