excel - VBA中的均方根(rms)函数？

Question

所以我在我的工作表中计算基本统计数据，它包括以下代码:

xxx = Application.worksheetfunction。 平均 (等等等等等等

yyy = Application.worksheetfunction。 分钟 (等等等等等等

zzz = Application.worksheetfunction。 最大 (等等等等等等

我的问题:是否有一个 RMS 等效函数，我可以简单地将其插入该代码中具有“平均、最小值、最大值”函数的位置？如果没有，那么编写代码以找到 RMS 解决方案的最有效方法是什么？

我希望我已经足够清楚地说明了目标。我很好奇是否有用于 VBA 的预定义 RMS 函数，或者我是否必须创建某种用户定义的函数？ 〜我对此也很陌生，所以如果没有为此编写简单的代码行，我将不得不在UDF上做更多的阅读。

编辑:

我有大约 30,000 行，为了简单起见:想象两列。 A 列有年份，即 1941 年或 2008 年之前的任何时间。B 列是一个数值。我只是想把代码放在一起，给出平均值、最小值、最大值和 RMS 值的十年摘要。

Answer 1

你可以用

=SQRT(SUMSQ(A:A)/COUNTA(range))

或在 VBA 中:

r = (Application.WorksheetFunction.SumSq(Range("A:A")) / Range("A:A").Count) ^ (1 / 2)