VBA函数最后一个参数可重复添加

━━━━━━━━━━━━━━━━━━━━━━━━━

'可以传入多个参数
'使用 ParamArray 关键字可以使函数接收数目可变的参数

Function CalcSum(ByVal FirstArg As Integer, ParamArray OtherArgs())
    Dim i As Integer
    CalcSum = FirstArg
    For i = 0 To UBound(OtherArgs)
        CalcSum = CalcSum + OtherArgs(i)
    Next
End Function

'如果用如下代码调用该函数：
Sub Example1()
    Dim ReturnValue
    '局部变量赋予以下值：FirstArg = 4，
    'OtherArgs(0) = 3，OtherArgs(1) = 2，OtherArgs(2) = 1，等等。
    ReturnValue = CalcSum(4, 3, 2, 1)
    MsgBox ReturnValue
End Sub