你这个Function 可以返回一个数组。如果你要把数据放到两个单元格中,可以有两个办法解决。1,你再写一个计算函数放到另一个单元格中,或者再次调用这个函数,做两次计算,每次返回一个结果。2,你可以把两个单元格的形参传到函数体内,跟据你的需要,填中不同的值即可。 Function mydd(aData As Range,aDataW As Range)……mydd=array(……)aDataW... = ... End Function
选中两个连续的横向的单元格,比如F2到G2,在公示栏输入 =mydd(参数),同时按Ctrl、Shift、Enter就可以了。