2015-05-09 60 views

回答

0
Sub ertdfgcvb() 
Dim ws As Worksheet, rng As Range, str1 As String 
str1 = " return order" 
On Error Resume Next 
For Each ws In ActiveWorkbook.Worksheets 
    If ws.Index > ActiveSheet.Index Then 'after the currently open worksheet 
     Set rng = ws.Cells.Find(What:=str1, LookAt:=xlPart) 'tries to find your string 
     ws.Select 'if it manages then selects the worksheet 
     rng.Select 'and the cell in which it found the string 
     Exit Sub 
    End If 
Next 
End Sub 

您的规格不太清楚,下面是一个脚本,您可以从中开始。
没有,跟进是不可能的,我们不是随叫随到的编程服务。

相关问题