Sub DELCO()
Dim i As Integer
i = 0
xunhuan:
On Error GoTo eend
Cells.Find(What:="生产编号").Select
Cells.Find(What:="合同数量").Select
/*注释：这上面的两段相同代码能怎么把它们合起来吗？如果是一条就能正常运行，两条就不行了。*/
Selection. EntireRow. Delete
i = i + 1
GoTo xunhuan
eend:
MsgBox (i & "行被删除了")
End Sub