如何解决如何复印一张纸并确保它在所有其他纸的末尾？
sheetcopy.copy After:=ThisWorkbook.Worksheets(Worksheets.Count)
我使用上面的代码在Excel中创建模板工作表的副本。
大多数时候，它是在结尾处创建标签，这是我想要的，但是有时它会在中间的某个位置创建新标签。
是否有办法确保将其复制到图纸的末尾？
解决方法
(Thisworkbook.Worksheets.Count)
问题
使用Workbook，Worksheet，Range或其他类似对象时，最好avoid implicit member calls。
其中大多数默认为活动状态。例如，Worksheets.count与ActiveWorkbook.Worksheets.count相同。
在您的代码中，访问ThisWorkbook集合时正确使用Worksheets时，您几乎就在那里。但是，Worksheets.count默认为ActiveWorkbook。
解决方案
要解决此问题，我喜欢使用With块来帮助缩短代码，并使其在我的参考文献中更容易明确显示。
With ThisWorkbook
sheetCopy.Copy After:=.Worksheets(.Worksheets.Count)
End With
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
