閱： 1870 | 回： 1
等級(jí):初學(xué)者
-
積分:0
-
財(cái)富值:2.00
-
身份:普通用戶
Sub DELCO()
Dim i As Integer
i = 0
xunhuan:
On Error GoTo eend
Cells.Find(What:="生產(chǎn)編號(hào)").Select
Selection. EntireRow. Delete
Cells.Find(What:="合同數(shù)量").Select
GoTo xunhuan
eend:
MsgBox (i & "行被刪除了")
End Sub
Dim i As Integer
i = 0
xunhuan:
On Error GoTo eend
Cells.Find(What:="生產(chǎn)編號(hào)").Select
Selection. EntireRow. Delete
Cells.Find(What:="合同數(shù)量").Select
Selection. EntireRow. Delete
Cells.Find(What:=" ").Select
Selection. EntireRow. Delete
GoTo xunhuan
eend:
MsgBox (i & "行被刪除了")
End Sub
我的個(gè)性簽名
等級(jí):傳說級(jí)人物