[求助]如何实现过程的调用？

Bluelost

我在做一个查找并复制结果的功能，由于同一工作要重复n次，但其中的copy的对象和paste的对象地址是会变的），怎么样才能实现写一个公用的过程，然后在不同地方调用，把参数传递给它就行了，就像这样 function(i,k)，对应.Cells(nrow - i, k).Copy。我想到的是从If Target.Value <> "" Then开始到对应的END IF这段应该可以写成公用的过程，但不知道怎么实现。或者你有什么更好方法可以简化代码。



还有一个小问题，为什么[b65536].End(xlUp).Row是111，data数据明明到1276行！

[此贴子已经被作者于2005-3-21 9:20:41编辑过]