对数组的特定列进行计算

Question

我仅使用特定于在特定列中具有特定值的那些行的表中的数据填充动态数组。 直到这一刻没有概率。 我无法对一整列（并且仅针对该列）执行操作。

我想过这样的事情

Dim arr as variant
Dim avg as double
Dim i as integer
i = InputBox( "The column I want to calculate the average of")
 avg = Application.Worksheetfunction.Average(arr.column(i))

可能吗？

Answer 1

您只需要将“列”更改为“列”

解决方案：

avg = Application.Worksheetfunction.Average(arr.columns(i))

Answer 2

另一种可能性，在这种情况下更糟糕的是我使用的代码是：

avg = application.worksheetfunction.average(application.index(array,0,i)) –