平均一个类中的众多值

Question

我有一个包含很多参数的类，因为它包含在Excel中的所有列中，因为这是我在构建宏时通常所做的第一步。然后我开始考虑如何实际完成我想要做的事情，我想我只是浪费了几个小时的编码。

我要做的是对类中的每个参数求平均值，并尝试获取最小值和最大值。这些excel文件中有大约100000行。

我的计划是把所有东西都放到一个集合中，然后我认为会有一些平均函数或者min参数的最小和最大函数，或者一种将数组发送到一个函数的方法计算最小值或最大值

什么是理想的：

Dim collectionOfRecords as new collection

for each row in sheet.rows
    Dim r as New RmmRecord

    call r.PopulateClass(row)
    collectionOfRecords.add r
next row

然后以某种方式从集合中得到平均值：

dim parameter1Average as double
parameter1Average = collectionOfRecords.Parameter1.Average '(ha, I wish)

OR：

parameter1average = GetAverageFromCollection(collectionOfRecords, Parameter1)


Public Function GetAverageFromCollection(records as Collection, parameterToAverage as something??)
    for each record in records
        sum = record.parameterToAverage + sum
    next record
    GetAverageFromCollection = sum / records.count
end function

谢谢！