EXCEL VBA加快我的代碼

Question

按照標題，以下代碼位於我的Private Sub Workbook_open()中。因此，每次打開工作簿時都很慢。如何優化代碼以最快運行？任何幫助表示讚賞。

'Sheets("Summary(FG)") ComboBox1 items 
For b = 3 To Sheets("CustomerList").Cells(3, 2).SpecialCells(xlLastCell).row 
    If Sheets("CustomerList").Cells(b, 2) <> "" Then 
     Worksheets("Summary(FG)").ComboBox1.AddItem (Sheets("CustomerList").Cells(b, 2)) 
    Else 
    End If 
Next 

'Sheets("Summary(RawMat)") ComboBox1 items 
For a = 2 To Sheets("RawMatList").Cells(2, 2).SpecialCells(xlLastCell).Column 
    If Sheets("RawMatList").Cells(2, a) <> "" Then 
     Worksheets("Summary(RawMat)").ComboBox1.AddItem (Sheets("RawMatList").Cells(2, a)) 
    End If 
Next 

'sheets("Summary(WIP)") ComboBox1 items 
For c = 3 To Sheets("WIPList").Cells(3, 2).SpecialCells(xlLastCell).row 
    If Sheets("WIPList").Cells(c, 2) <> "" Then 
     Worksheets("Summary(WIP)").ComboBox1.AddItem (Sheets("WIPList").Cells(c, 2)) 
    End If 
Next 

For Each Worksheet In Worksheets 
    Application.Goto Reference:=Range("A1"), Scroll:=True 
Next Worksheet 

Answer 1

看起來你的循環遍歷工作表上的每一行或每一列。而不是使用最後一行或最後一列嘗試使用最後一次使用的行或最後使用的列。通過這種方式，您不僅可以移動數千個空行，而且還可以檢查包含數據的行。

嘗試：

'Sheets("Summary(FG)") ComboBox1 items 
For b = 3 To Sheets("CustomerList").UsedRange.Rows.Count 
    If Sheets("CustomerList").Cells(b, 2) <> "" Then 
     Worksheets("Summary(FG)").ComboBox1.AddItem (Sheets("CustomerList").Cells(b, 2)) 
    Else 
    End If 
Next 

'Sheets("Summary(RawMat)") ComboBox1 items 
For a = 2 To Sheets("RawMatList").UsedRange.Columns.Count 
    If Sheets("RawMatList").Cells(2, a) <> "" Then 
     Worksheets("Summary(RawMat)").ComboBox1.AddItem (Sheets("RawMatList").Cells(2, a)) 
    End If 
Next 

'sheets("Summary(WIP)") ComboBox1 items 
For c = 3 To Sheets("WIPList").UsedRange.Rows.Count 
    If Sheets("WIPList").Cells(c, 2) <> "" Then 
     Worksheets("Summary(WIP)").ComboBox1.AddItem (Sheets("WIPList").Cells(c, 2)) 
    End If 
Next 

For Each Worksheet In Worksheets 
    Application.Goto Reference:=Range("A1"), Scroll:=True 
Next Worksheet