1、ws1.cells这样用错误,应该改成ws1.UsedRange
2、在delete之前,应该先写 ws1.select
3、在各个操作的时候 ws1.select、ws2.select 适当的加入,看是否还报错