如何调用由不同函数创建的数组？

Question

我正在尝试在另一个用户定义函数中使用从用户定义函数创建的数组。对于这个练习，我有两个独立的函数。

第一个函数将从范围输入创建一个数组并对值求和（是的，我知道有一个 excel 内置求和函数，但这只是为了练习）。

第二个函数将调用在第一个函数中创建的数组，并将值与第二个范围输入相加。请参阅以下代码。

            Function first_funct(list_1 As range) As Double

                Dim extent As Integer
                extent = list_1.rows.Count

                Dim main_array() As Double
                ReDim main_array(1 To extent)
                Dim i As Integer

                first_funct = 0

                For i = 1 To extent
                    main_array(i) = list_1(i).Value
                    'main_array will be used again in second function

                    first_funct = first_funct + main_array(i)
                Next i

            End Function

            Function second_funct(list_2 As range) As Double

                Dim extent As Integer
                extent = list_2.rows.Count
                'Assume the extent of list_2 is equal to extent of list_1 in first function.

                Dim i As Integer

                second_funct = 0

                For i = 1 To extent
                    second_funct = second_funct + main_array(i) + list_2(i).Value
                    'How do I call upon main_array created from list_1 in the first function?

                Next i

            End Function

我的问题是：如何使用在第一个函数中创建的main_array，以便可以将它用于第二个函数。

实际上，我有数百个需要计算的单元格，并且为每个单元格创建相同的数组效率低下。我想一次创建一个数组（在本例中为函数 #1）并使用一个更简单的函数（函数 #2）来调用保存的数组，从而为我节省了许多代码行和时间。

提前致谢。

Answer 1

将数组存储在全局变量中是可行的方法。但是这种方法的一个问题是您已经将依赖项引入到 Excel 看不到的 second-func 中。解决这个问题比让数组全局化更复杂。

因此，您必须以某种方式确保在此 Excel 会话中已在 second-func 之前计算 first_func，并且在重新计算 first-func 时（例如，因为 list_1 已更改），所有 second-Func 都会重新计算。

所以你必须这样做：

• 在您的 Workbook_Open 事件中，您需要重新计算 first-func（到 当您重新打开工作簿并且全局数组为空并需要重新创建时处理这种情况）
• Second_func 需要有一个附加参数来引用 包含 first-Func 的单元格（以便 Excel 重新计算 每当 list_1 发生变化和 func-1 重新计算时，它都会显示）