调整后内容如图
但执行结果变成把每个档案中
第一个出现Sheet的指定范围，重复贴上好几次
其他sheet内容并未复制贴入
想询问应如何调整写法
谢谢
https://i.imgur.com/BAbSdSG.jpg
https://i.imgur.com/Tc508uD.jpg

跟上一篇推文相同，你没有用到sht，也没有设定谁要active所以只会一直对一开始active的工作表进行操作我建议跨工作表/档案的状况下，直接针对目标赋值就好也建议不要直接使用Range，标上父物件较明确也不容易出错tgtWb.Worksheets([name]).Range([xxx])=sht.Range([xxx])之类的

所以即使在end if后面写next sht，也不会自动让下一个工作表是activesheet，然后判断A14格是否为1？

不会，Next sht只是让excel知道该让sht指向下一个工作表简单的修正就是在循环最一开始加上sht.Activate

感谢N大的建议，加那句后就执行成功了！