Some simple functions for pairwise lifting of VBA UDFs

excel-lambda-two_arg.txt

two_arg = LAMBDA(function, 
    LAMBDA(x, y, 
        function(x, y)
    )
);

udf_lifting.vb

Option Explicit

Public Function multiply(x As Double, y As Double)

multiply = x * y

End Function

Public Function add(x As Double, y As Double)

add = x + y

End Function



Public Function lift(func As String, ParamArray arrs() As Variant)
    Dim i As Long
    Dim leadingArray As Variant
    Dim result As Variant
    Dim resultLength As Long
    
    leadingArray = arrs(0)
    resultLength = UBound(leadingArray)
    
    ReDim result(1 To resultLength, 1 To 1)
        
    For i = 1 To resultLength
        result(i, 1) = Application.Run(func, arrs(0)(i, 1), arrs(1)(i, 1))
    Next i
    
    lift = result
    
End Function