1、打开Excel,按“Alt+F11”进入VBA环境。或者点击“开发工具”功能区,点击“Visual Basic”按钮进入VBA环境。
2、在VBA环境下,右击“Microsoft Excel对象”,在弹出的菜单中选择“插入”->“模块”项。
3、接着在打开的模块中输入以下创建函数的代码:Function 任意参数求和(ParamArray Args()) Dim a, b Dim sum As Integer i = 1 j = 1 sum = 0 For Each a In Args '循环遍历获取每一个参数 For Each b In a '对每一参数进行细致分解 sum = sum + b Next Next 任意参数求和 = sumEnd Function
4、然后我们进行测试:创建如图所示的表格,然后输入公式“=任意参数求和(A1:A6)”并按回车键即可得结果:
5、我们还可以采取对逐个单元格进行引用的方式来实现求和,输入如图所示的公式“=任意参数求和(A1,A2,A3,A4,A5,A6)”,即可得结果。
6、利用对单元格区域引用来求和:输入公式“=任意参数求和(A1:A2,A3:A6)”也可自动求和。
7、由此可知,该函数实现了对任意个参数进行求和的功能。