n = 开始数量
j=0
Do
Text = Plugin.Office.ReadXls(1, 1 + n, 1)
TracePrint Text
If Text = "" Then
ExitScript
End If
j=j+1
Call Plugin.Msg.Tips("第"&j&"次运行程序")
Call 查找(text)
Delay 300
Call 写入
Call Plugin.Office.WriteXls(1, 1 + n, 9, "是")
n = n + 1
Loop
j=0
Do
Text = Plugin.Office.ReadXls(1, 1 + n, 1)
TracePrint Text
If Text = "" Then
ExitScript
End If
j=j+1
Call Plugin.Msg.Tips("第"&j&"次运行程序")
Call 查找(text)
Delay 300
Call 写入
Call Plugin.Office.WriteXls(1, 1 + n, 9, "是")
n = n + 1
Loop
