Excel VBA 函数输出

怎么将函数的结果显示在多个单元格中
Function dxl(Rng As Range)
Dim Result(1 To 7) As Double
...................
ActiveCell.Resize(1, 7) = Result
end function

在单元格中输入“=dxl（”。。。。“）”后提示循环引用。
如果将最后一句换为 dxl=result 只在相应单元格中输出result（1）。
请教各位，我怎样才能将函数中的数组result输出到7个单元格中
问题我已经解决了，可以用数组公式。可以参考《Excle2003 高级VBA编程宝典》一书。
非常感谢三位的回答。

1、示例代码：

Sub test1()
    Dim x As Long
    x = WorksheetFunction.SumIf(Range("A2:A9"), Range("C2").Value, Range("B2:B9"))
    Range("D2").Value = x
End Sub

2、如下图：

3、以上代码的作用是：调用工作表函数SUMIF，求A2:A9范围内符合C2单元格条件，对应的B2:B9范围内数值之和，结果输出到D2单元格。

所谓函数，就是有一个输入输出的过程，你输入是Rng，但是输

excel vba 函数 excel的VBA程序能否调用EXCEL函数呀？ VBA中读取excel单元格的时间输出是什么? EXCEL里怎样动态地合并单元格,用VBA函数 都是些什么样的人excel的函数与vba vba excel excel vba EXCEL VBA excel VBA Excel VBA