不行的VBA中的用户自定义函数，不能改变其他单元格的值。你想想，假设B1单元格中的自定义函数引用了A1单元格的值，如果有自定义函数中又改变了A1中的值，那么程序如何运行。死循环了
VBA 的话，通常直接赋值就可以了。
用VBA你这个很方便解决的
