VBA宏运行速度太慢

Question

这段代码花了很长时间专门用于for循环部分。 任何人都可以弄清楚我们如何通过对代码执行某些更改来强制执行代码，我在这里推出代码以便更好地理解。

Y = WorksheetFunction.SumIfs(WorksheetFunction.Choose(WorksheetFunction.Match(ThisWorkbook.Sheets("Control").Range("J10").Value, wb2.Sheets("Expenses Dashboard").Range("E1:P1"), 0), _
wb2.Sheets("Expenses Dashboard").Range("E1:E" & LastHO), wb2.Sheets("Expenses Dashboard").Range("F1:F" & LastHO), _
wb2.Sheets("Expenses Dashboard").Range("G1:G" & LastHO), wb2.Sheets("Expenses Dashboard").Range("H1:H" & LastHO), _
wb2.Sheets("Expenses Dashboard").Range("I1:I" & LastHO), wb2.Sheets("Expenses Dashboard").Range("J1:J" & LastHO), _
wb2.Sheets("Expenses Dashboard").Range("K1:K" & LastHO), wb2.Sheets("Expenses Dashboard").Range("L1:L" & LastHO), _
wb2.Sheets("Expenses Dashboard").Range("M1:M" & LastHO), wb2.Sheets("Expenses Dashboard").Range("N1:N" & LastHO), _
wb2.Sheets("Expenses Dashboard").Range("O1:O" & LastHO), wb2.Sheets("Expenses Dashboard").Range("P1:P" & LastHO)), wb2.Sheets("Expenses Dashboard").Range("R1:R" & LastHO), _
ThisWorkbook.Sheets("Control").Range("L12").Value, wb2.Sheets("Expenses Dashboard").Range("V1:V" & LastHO), ThisWorkbook.Sheets("Control").Range("H19").Value, wb2.Sheets("Expenses Dashboard").Range("A1:A" & LastHO), wb1.Sheets("2.Performance Dasboard").Range("B" & i).Value)

wb1.Sheets("3.Expenses Dashboard").Range("F" & i).Value = WorksheetFunction.SumIfs(wb2.Sheets("HO_GL_Dump").Range("N1:N" & LastHO), wb2.Sheets("HO_GL_Dump").Range("B1:B" & LastHO), ThisWorkbook.Sheets("Control").Range("H10").Value, wb2.Sheets("HO_GL_Dump").Range("T1:T" & LastHO), ThisWorkbook.Sheets("Control").Range("L12").Value, wb2.Sheets("HO_GL_Dump").Range("Z1:Z" & LastHO), ThisWorkbook.Sheets("Control").Range("H19").Value, wb2.Sheets("HO_GL_Dump").Range("H1:H" & LastHO), wb1.Sheets("2.Performance Dasboard").Range("B" & i).Value)

wb1.Sheets("3.Expenses Dashboard").Range("G" & i).Value = Y - wb1.Sheets("3.Expenses Dashboard").Range("F" & i).Value