[發問] 這問陣列的相加是否有其它的寫法有更快的執行速度

kasl

Function Cal_Avg_xDay(Date_I, xDay) As Double   ' 計數月線/季線
ReDim xDay_Sum(xDay)
For j = 1 To xDay
   xDay_Sum(j) = AR(3)(Date_I - j + 1, BT_Stock_I)
Next
Cal_Avg_xDay = WorksheetFunction.Round(WorksheetFunction.Average(xDay_Sum), 2)
End Function

我寫了一個 function, 用來計算股價的月線/季線。傳入值為當日日期的index，xDay為20or60。
請問有其它較簡潔的寫法以及更快的執行速度嗎，謝謝。

sunnyso

回復 1# kasl

不要用worksheetfunction 會更快