[VBA ] 迴圈跑很慢

看板Visual_Basic作者kikkoko (海海人生)時間10年前 (2014/06/16 19:51)推噓3(3推 0噓 12→)

留言15則, 5人參與討論串1/1

大約三千多筆資料，跑個迴圈+ if then竟然要跑這麼久請問有哪邊可以改寫讓程式效率更快速嗎~ tks~ 程式碼： Sub XX() Application.ScreenUpdating = False Dim i As Integer Dim AA As Integer Dim BB As String i = 2 Do Until Cells(i, 1).Value = "" If Cells(i, 1).Value Like "ASM*" Then AA = Application.Find("_", Cells(i, 3)) BB = Left(Cells(i, 3), AA - 2) Cells(i, 13).Value = BB End If i = i + 1 Loop Application.ScreenUpdating = True End Sub -- t a ╭ ◢██◣═◢██◣◥███◣═███◢██◣═球˙來就打══╮t a h n ║ █◤ ◥ █◤ ◥ ████ █ █ █ ╴ ∕ ║h n e s ║ █ █ █▌ ◥██◣ ◢◤ ￣╱〉 ║e s w ˙─────────────────────── ☆ ║ w e ║ ◥██◤ ◥██◤ █▌ ◥██◤███ ╱ ╰ ║ e r 3╰═══════════ ◤════════════ Copy CCF ╯-- -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 180.177.11.114 ※ 文章網址: http://www.ptt.cc/bbs/Visual_Basic/M.1402919467.A.E39.html

→

Catbert

06/16 23:02, , 1^F

06/16 23:02, 1^F

→

kikkoko

06/16 23:14, , 2^F

06/16 23:14, 2^F

→

MOONRAKER

06/17 00:33, , 3^F

06/17 00:33, 3^F