小弟想搜尋excel檔案內某字串index1,於是利用
錄寫功能並稍加修改得到如下程式
Sub
Windows("b.xls").activate
for i=1 to 100
index1= windows("a.xls").activesheet.cells(i,0)
again:
on error goto again
Cells.Find(What:=index1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
False).Activate
on error goto 0
.........
next i
End Sub
現在問題來了
使用Cells.Find(What:=index1.....)函式如果沒找到index1就會出現錯誤訊息
因此我用On error goto again用法讓程式繼續執行,但是我發現如果找不到index1
太多次,程式依然會出現error訊息,並停止執行.
請問有辦法克服嗎?(讓程式繼續執行)
還是有其他的搜尋函式呢?
Thanks for your help!
RJ