参数数组是个名词，实际上也可以反过来称为数组参数，不管怎么叫，这个名称都显得十分不好理解。
本文介绍一下，这个所谓的参数数组是怎么一回事儿。
首先，它是个参数，是个过程或函数定义时用到的一个参数，以数组的形式进行传递，主要是有一个很好的特点，这个数组可以是任意大小，要注意的是这个数组作为参数，一定是最后一个参数。
定义方法：
使用 ParamArray 关键字可表示参数数组。
Sub GetColumnSum(xSheetname as string,ParamArray ColArr() as Variant)
msgbox ubound(ColArr)
End Sub
如下图所示：
调用方法：
GetColumnSum "Sheet1",ColArr(1),ColArr(2)
使用的时候可以任意使用数组元素，而不是整个数组，这样就很方便地提供了一种选择，需要传递数组中的任意一些数组来进行过程操作。
如上图所示，要进行一列数据计算，我们可以把整个列单元做为一个数组进行传递，这样就很方便地进行某一列的数据计算。
代码：
'可以任意传递参数数量 进行过程执行
Sub 参数数组()
Dim xs As String
xs = "Sheet1"
Dim xArr() As Variant
Dim ic As Integer, xi As Integer
ic = ThisWorkbook.Worksheets(xs).Cells(1, Columns.Count).End(xlToLeft).Column
ReDim xArr(1 To ic)
For xi = 1 To ic
Set xArr(xi) = ThisWorkbook.Worksheets(xs).Columns(xi) '返回列对象
Next xi
[e11].Value = 0
[f11].Value = 0
ggetColumnStr xs, xArr(5) '调用第5列 作为参数进行计算
Erase xArr
End Sub
Sub getColumn(xSheetName As String, ParamArray columnArr() As Variant)
'定义数组参数 ParamArray
On Error Resume Next
Dim ci As Integer
For ci = LBound(columnArr()) To UBound(columnArr())
[e11].Value = Application.WorksheetFunction.Sum(columnArr(ci)) '统计和值
[f11].Value = Application.WorksheetFunction.Average(columnArr(ci)) '统计平均值
Next ci
End Sub
参数数组应用具有其灵活性，在一很多应用场境下使用，十分有用，本着灵活使用的结果来考虑，学会其应用方法是一个很好的想法，所以，在此之外，要多练习才是其应用熟练的最好途径。
END
如需要获得免费应用，可以转发或私信联系，将有不错的选择。
,