在excel的vba IDE中新建一个模块，然后输入代码：publicF()asvariant在新建一个过程叫做publicSubINITF()RedimF(XFToXT,YFToYT)endsub其中的xf,xt,yf,yt需要你自己给值，因为我不知道你到底需要多少个横纵格在你所有的代码的最开始的位置调用一次这个sub即可
