VBA在循环中将多个列存储在数组中，然后返回值

我有一个macros将工作表“NSA”中的多个列应用用户定义函数（代码中的R.ajseasonX13），然后返回工作表“SA”中的值。

问题是我的代码一次只将一个函数应用于列。 一旦VBA从标签“NSA”到“SA”之间来回移动，结果会非常缓慢。

我知道如何使用函数“R.ajseasonX13”创build一个需要修改的所有列的范围。 我的疑问是：如何将函数应用于哪一列，在代码运行时将所有列存储在matrix中，然后仅返回具有调整值的最终matrix？

我试图创build一个数组，但我坚持如何确定数字数据的第一行，以及如何为For循环添加新的列。

这是我的代码：

Sub Dessaz() Dim wb1 As Workbook Set wb1 = ActiveWorkbook Dim wsNSA As Worksheet Set wsNSA = wb1.Worksheets("NSA") Dim wsSA As Worksheet Set wsSA = wb1.Worksheets("SA") Dim col As Range Dim nsaArray As Variant 'Finds the row of the first cell with numeric data in column A (where dates are stored) wsNSA.Range(Cells(1, 1), Cells(1048576, 1)).NumberFormat = "General" datas_col = wsNSA.Range(Cells(1, 1), Cells(10000, 1)) data1_linha = Application.Match(True, Application.Index(Application.IsNumber(datas_col), 0), 0) wsNSA.Range(Cells(1, 1), Cells(1048576, 1)).NumberFormat = "dd/mm/yyyy" 'Determinates one of the parameters of the user defined function "R.ajseasonX13" used ahead inicio = wsNSA.Cells(data1_linha, 1).Value inicio = Year(inicio) & "-" & Month(inicio) & "-" & "01" 'LR is the last column with data and LC is the last column with data LR = wsNSA.Cells(data1_linha, 1).End(xlDown).Row LC = wsNSA.Cells(LR, 1).End(xlToRight).Column 'States another one of the parameters of the user defined function p = 12 nsaArray = wsNSA.Range(wsNSA.Cells(1, 2), wsNSA.Cells(LR, LC)) For Each col In wsNSA.Range(wsNSA.Cells(1, 2), wsNSA.Cells(LR, LC)) wsNSA.Activate nsa = wsNSA.Range(wsNSA.Cells(1, col.Column), wsNSA.Cells(LR, col.Column)) 'Finds the first row with numeric data in each column of the data series num_linha = Application.Match(True, Application.Index(Application.IsNumber(nsa), 0), 0) nsaArray = wsNSA.Range(wsNSA.Cells(num_linha, col.Column), wsNSA.Cells(LR, col.Column)) 'Applies the user defined function to the "nsa" columns and returns their value (but only one at a time, which is 'not as fast as possivle in VBA 'wsSA.Activate sa = Application.Run("R.ajseasonX13", nsa, inicio, p) wsSA.Range(wsSA.Cells(num_linha, col.Column), wsSA.Cells(LR, col.Column)) = sa Next End Sub