軟體:excel
版本:2007
最近用vba寫查找的公式時 我是這樣寫的
r = 0
r = Application.WorksheetFunction.Match(r0.Cells(i), column1, 0)
Cells(i, 2).Value = Application.WorksheetFunction.Index(column2, r)
用迴圈來跑這樣的式子
因為有時候會有對不到的情況 如果對不到我希望它顯示空白
所以r就需在每次迴圈重新宣告為零
否則在沒找到新的一筆資料時r會顯示為前一個迴圈的r
但我發現這樣效率好像很差 查找很慢
想問有沒有更好的寫法會更快的 有關設為零的部分還可以怎麼做嗎
或是直接用iferror會比較好嗎 但是我沒找到application+iferror的寫法
有沒有高手能提供一點建議呢 非常謝謝

如錯誤回傳空白，可以if配合iserror，match方面以application.match或以判斷range.find如is nothing回傳空白或以工作表函數countif，為0時回傳空白

s大你好 是否可以再問一個迴圈的問題For i = 4 To Range("C4").End(xlDown).RowIf Cells(i, 42) = 0 ThenRows(i).Delete Shift:=xlUpv=v-1想問這樣要怎麼改比較好 因為刪除的列上移所以讓刪除的時候v-1再跑一次確保每一列都比較過但發現這樣跑不動 不知為何我確定是v-1這一行的問題

迴圈反過來跑，i = 4 to 1, step -1

如f大所述反序，以回文來看為for i = range("c4").end(xldown).row to 4 step -1只是v=v-1這裡的變數v並無於回文內出現，所以不太清楚該變數和確保每一列都比較過的關係為？但如以反序的話，應就可取消該行試試

對，i = i - 1 這行不用寫至於你原文的問題，如果查找的範圍很大，建議將資料寫成陣列，在陣列裡查找會比較快具體做法是A陣列存放查找key值、B陣列存放回傳值，兩個陣列的順序一致時，可以在A陣列找到key值的資料序號，然後帶回B陣列該序號的值，可以大幅加快運算速度

請問f大那裡有i=i-1？我只有看到v=v-1

s大，抱歉，我剛剛以為你回的那些訊息是原po問的… 他應該是key錯吧？

v是打錯沒錯 很感謝兩位大大 改善非常多f大提供的方式我晚一點試試看 非常感謝