将黄色代码部分修改为 copytorange:=rng
楼上说的对，因为range（）里面的是文本或者文本变量，但是你上面定义的rng是个range变量，可以直接作range用，加了个range（）反而就会出错了
感觉你是自动生成的宏，然后加了点语句。冗余很多，要不你把源文件和要求发给我，我试试改改。
QQ一把二零四六四灵刘三。
请确认变量r的定义是否正确。
如果Sheet4的第4列末尾行数小于4，则导致循环变量d的无效。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024