Excel VBA：在 UDF 中使用参数调用命名函数

问：

我的工作簿中有一个名为“ReadRaw”的命名函数，其中包含两个输入参数，使用 lambda 进行 2D 索引匹配查找，定义如下：

=LAMBDA(runPoint,header,INDEX(Sheet1!$A:$X),XMATCH(runPoint,Sheet1!$A:$A),2,XMATCH(header,Sheet1!$4:$4"),2)

当在单元格中定义时，它按预期工作，如下所示：

=ReadRaw(C4,C2)

我想使用该函数来计算“ReadRaw”的多次调用的平均值，避免使用如下所示的公式，因为我对第二个参数的输入范围会更大。

=AVERAGE(ReadRaw(C4,C2), ReadRaw(C4,D2), ReadRaw(C4,E2))

通话不起作用。我尝试创建一个新的命名函数“AverageReadRaw”，但没有成功：=AVERAGE(ReadRaw(C4,C2:D2)

=LAMBDA(runPoint,header,AVERAGE(ReadRaw(runPoint,header)))

因此，我的下一个想法是在 VBA 中创建一个 UDF，它遍历输入范围并在每个单元格上调用“ReadRaw”并计算平均值。是否可以从 VBA 调用命名函数？

Function AverageReadRaw(runPoint As Long, header As Range) As Variant
    Dim RangeLength As Integer
    Dim productVal As Long

    RangeLength = header.Count()
    productVal = 0#
    
    ' Run the RearRaw formula for each value in the range
    For Each i In header
        productVal = productVal + **ReadRaw(runPoint, i)**
    
    AverageReadRaw = productVal / RangeLength
    
End Function

ReadRaw 调用是我不确定如何定义的。我尝试过 Evaluate、CallByName、Application.Run 但没有成功。