Excel怎么创建变参函数 Excel如何自定义函数

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

    任意参数求和 = sum

 End Function

4、然后我们进行测试：

创建如图所示的表格，然后输入公式“=任意参数求和(A1:A6)”并按回车键即可得结果：

5、我们还可以采取对逐个单元格进行引用的方式来实现求和，输入如图所示的公式“=任意参数求和(A1,A2,A3,A4,A5,A6)”，即可得结果。

6、利用对单元格区域引用来求和：

输入公式“=任意参数求和(A1:A2,A3:A6)”也可自动求和。

7、由此可知，该函数实现了对任意个参数进行求和的功能。