[VBA ] 運算效率請益已刪文
各位專家大家好
目標是要把特定列的儲存格過濾出來
然後更新列的公式
我的列有一萬行左右
程式碼跑起來要兩分鐘....
我的程式碼是哪裏出問題嗎?謝謝。
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
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章