VBA Function如何传入二维数组

在VBA中，函数如果要接受二维数组作为输入，可以定义一个ByVal或ByRef参数来接收数组。但是，需要注意的是，由于内存限制，VBA并不支持直接传递整个二维数组，通常会通过传递数组的引用或者一维数组的切片来操作。

下面是一个简单的例子，展示如何定义一个函数接收一维数组切片作为二维数组的一部分：

Function ProcessArrayPart(ByVal arr() As Variant, ByVal startRow As Long, ByVal numCols As Long) As Variant
    Dim processRange As Range ' 假设我们处理的是arr数组的一个子范围
    Set processRange = Range(arr(startRow, 1), arr(startRow, numCols + startRow - 1))
    
    ' 对processRange内的数据进行处理...
    ' ... 然后再返回结果
    
    ' 示例返回部分数组的平方
    ProcessArrayPart = Application.Transpose(Application.WorksheetFunction.Map(Function(x) x ^ 2, processRange.Columns))
End Function

这个函数接受一个一维数组`arr`、起始行号`startRow`和列数`numCols`，然后返回从指定范围计算出的结果。实际上在处理过程中，你需要根据实际需求对二维数组的部分进行操作。