阅： 565 | 回： 1
等级:初学者
-
积分:0
-
财富值:2.0
-
身份:普通用户
Sub DELCO()
Dim i As Integer
i = 0
xunhuan:
On Error GoTo eend
Cells.Find(What:="生产编号").Select
Selection. EntireRow. Delete
Cells.Find(What:="合同数量").Select
GoTo xunhuan
eend:
MsgBox (i & "行被删除了")
End Sub
Dim i As Integer
i = 0
xunhuan:
On Error GoTo eend
Cells.Find(What:="生产编号").Select
Selection. EntireRow. Delete
Cells.Find(What:="合同数量").Select
Selection. EntireRow. Delete
Cells.Find(What:=" ").Select
Selection. EntireRow. Delete
GoTo xunhuan
eend:
MsgBox (i & "行被删除了")
End Sub
我的个性签名
等级:传说级人物