作者arashi2014 (nino)
看板Office
標題[算表] VBA Index+match問題
時間Fri Jul 21 00:30:33 2017
軟體: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的寫法
有沒有高手能提供一點建議呢 非常謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.114.233.182
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1500568235.A.0AD.html
1F：→ soyoso: 如錯誤回傳空白，可以if配合iserror，match方面以 07/21 07:04
2F：→ soyoso: application.match 07/21 07:04
3F：→ soyoso: 或以判斷range.find如is nothing回傳空白 07/21 07:06
4F：→ soyoso: 或以工作表函數countif，為0時回傳空白 07/21 07:08
5F：→ arashi2014: s大你好 是否可以再問一個迴圈的問題 07/22 00:55
6F：→ arashi2014: For i = 4 To Range("C4").End(xlDown).Row 07/22 00:57
7F：→ arashi2014: If Cells(i, 42) = 0 Then 07/22 00:57
8F：→ arashi2014: Rows(i).Delete Shift:=xlUp 07/22 00:57
9F：→ arashi2014: v=v-1 07/22 00:57
10F：→ arashi2014: 想問這樣要怎麼改比較好 因為刪除的列上移 07/22 00:58
11F：→ arashi2014: 所以讓刪除的時候v-1再跑一次確保每一列都比較過 07/22 00:59
12F：→ arashi2014: 但發現這樣跑不動 不知為何 07/22 00:59
13F：→ arashi2014: 我確定是v-1這一行的問題 07/22 01:02
14F：推 foolkids: 迴圈反過來跑，i = 4 to 1, step -1 07/22 06:12
15F：→ soyoso: 如f大所述反序，以回文來看為 07/22 10:03
16F：→ soyoso: for i = range("c4").end(xldown).row to 4 step -1 07/22 10:03
17F：→ soyoso: 只是v=v-1這裡的變數v並無於回文內出現，所以不太清楚該變 07/22 10:07
18F：→ soyoso: 數和確保每一列都比較過的關係為？ 07/22 10:07
19F：→ soyoso: 但如以反序的話，應就可取消該行試試 07/22 10:08
20F：推 foolkids: 對，i = i - 1 這行不用寫 07/22 10:20
21F：推 foolkids: 至於你原文的問題，如果查找的範圍很大，建議將資料寫成 07/22 10:22
22F：→ foolkids: 陣列，在陣列裡查找會比較快 07/22 10:22
23F：→ foolkids: 具體做法是A陣列存放查找key值、B陣列存放回傳值，兩個 07/22 10:25
24F：→ foolkids: 陣列的順序一致時，可以在A陣列找到key值的資料序號，然 07/22 10:25
25F：→ foolkids: 後帶回B陣列該序號的值，可以大幅加快運算速度 07/22 10:25
26F：→ soyoso: 請問f大那裡有i=i-1？我只有看到v=v-1 07/22 10:31
27F：推 foolkids: s大，抱歉，我剛剛以為你回的那些訊息是原po問的… 他應 07/22 10:56
28F：→ foolkids: 該是key錯吧？ 07/22 10:56
29F：→ arashi2014: v是打錯沒錯 很感謝兩位大大 改善非常多 07/22 13:10
30F：→ arashi2014: f大提供的方式我晚一點試試看 非常感謝 07/22 13:11