excel参数传入一列数据vba怎么写？

Question

我写的方法：Function cf(cell As Single, cells(), count As Integer)
我想传入一列数据，然后存入cells（）数组中，但是不成功。
就是表格里写=cf(A1,B1:B19,0)中的B1：B19怎么读取呢？因为列是可能变的，不一定就是B1:19，怎么写呢？

Answer 1

function cf(xcell as range,ycells as range,count as integer)
xcell 可以是一个单元格
ycells可以是一个区域，使用时可以用for each ……next ，例如：
dim x '必须定义为变体型
for each x in ycells
这里的x就是单元格区域中的每一个单元格
next x
end function
没有调试，有问题再交流。

Answer 2

Function cf(cell As Single, cells as range, count As Integer)

定义cells as range