[VBA ] 運算效率請益已刪文

看板Visual_Basic作者 (la~尻槍~la)時間2年前 (2022/07/07 20:02), 2年前編輯推噓0(000)
留言0則, 0人參與, 最新討論串1/1
各位專家大家好 目標是要把特定列的儲存格過濾出來 然後更新列的公式 我的列有一萬行左右 程式碼跑起來要兩分鐘.... 我的程式碼是哪裏出問題嗎?謝謝。 Sub UpdateStockValue() Dim Sheet As Worksheet: Set Sheet = Worksheets("TEST") Dim Table As ListObject: Set Table = Sheet.ListObjects(1) Dim LastRow As Long: LastRow = Sheet.Range("A2").End(xlDown).Row Dim data, cell As Range Table.Range.AutoFilter 70, Array("Die attach", "M/C", "Packing Materials", "Substrate"), xlFilterValues Set data = Range("Z2:Z" & LastRow).SpecialCells(xlCellTypeVisible) For Each cell In data Cells(cell.Row, "Z").Formula = "=IFERROR(INDEX(mc.9!B:B,MATCH(D" & cell.Row & ",mc.9!A:A,0)),0)" Cells(cell.Row, "AL").Formula = "=Z" & cell.Row & "*AJ" & cell.Row & "/100" Next Sheet.ShowAllData Workbooks(1).RefreshAll End Sub 給予最佳解答P幣3000 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.163.134.155 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1657195338.A.2BB.html ※ 編輯: bright208 (1.163.134.155 臺灣), 07/07/2022 21:03:36 ※ 編輯: bright208 (1.163.134.155 臺灣), 07/07/2022 21:04:21
文章代碼(AID): #1YnijAAx (Visual_Basic)
文章代碼(AID): #1YnijAAx (Visual_Basic)