VBA写一个函数，用于求和

以下是一个简单的 VBA 函数，用于求取一组数的和：

Function SumNumbers(numbers() As Variant) As Double
    Dim sum As Double
    sum = 0
    For i = LBound(numbers) To UBound(numbers)
        sum = sum + numbers(i)
    Next i
    SumNumbers = sum
End Function

该函数接收一个变量类型为 Variant 的数组 numbers，通过遍历数组元素并将其相加来计算数组的和。最后将计算结果赋值给函数名 SumNumbers 并返回。可以在 VBA 编辑器中输入该代码并保存，之后在 Excel 等应用程序中调用。