在 Excel VBA 中，如何编写可以在数组公式中使用的函数？

在 Excel VBA 中，我知道我可以在多个单元格上使用数组公式，方法是选择 Col C 的一系列单元格，然后执行 =A1:10*B1:B10 Ctrl-shift-enter。

但假设我希望它不是乘法运算符，而是我的 mymult。

我将如何编写 mymult 函数？

Function MyMult(a As Integer, b As Integer)
  MyMult = a * b
End Function

我所拥有的不起作用

将参数声明为变体。然后使用Application.Caller.HasArray检查 UDF 是否用作数组公式：

Public Function MyMult(a, b)
  If Application.Caller.HasArray Then
    Dim valsA(), valsB(), r&
    valsA = a.Value
    valsB = b.Value

    For r = LBound(valsA) To UBound(valsA)
      valsB(r, 1) = valsA(r, 1) * valsB(r, 1)
    Next

    MyMult = valsB
  Else
    MyMult = a * b
  End If
End Function

请注意，您需要先选择 C1:C3，然后再按 CTRL + SHIFT + ENTER。