用sumproduct做加权平均

Question

我已经看过这个主题的其他问题，但代码仍然不适合我。我想通过对两列进行sumproduct并将其标准化为一列的总和来计算加权平均值。

Sub compute()
With Worksheet
.Range("AT2").Value = Evaluate("SUMPRODUCT(.Range("AQ"),.Range("AR"))/SUMPRODUCT(.Range("AQ"))")
End With
End Sub

OR

Sub compute()
.Range("AT2").Value = Application.WorksheetFunction.SUMPRODUCT((.Range("AQ"), .Range("AR"))/Application.WorksheetFunction.SUM(.Range("AQ"))
End Sub