VBA复制工作表时如何关闭新工作表自动激活跳转功能

Excel的Worksheet.Copy方法默认会自动激活新生成的工作表，你可以通过以下两种方案实现无跳转复制：

方案1：回切原活动工作表（零侵入修改） #

提前记录当前激活的工作表，复制完成后直接切回，用户侧完全感知不到跳转过程，代码示例：

' 记录当前激活的工作表
Dim currentActiveSheet As Worksheet
Set currentActiveSheet = ActiveSheet

' 原有复制逻辑无需修改
ActiveWorkbook.Sheets("XXX").Copy After:=ActiveWorkbook.Sheets("YYY")

' 切回原工作表
currentActiveSheet.Activate

该方案对原有业务逻辑无影响，适合单次复制的场景

方案2：关闭屏幕更新（适合批量复制场景） #

如果需要一次性复制多张工作表，可直接关闭屏幕更新，所有操作后台执行完成后再恢复界面刷新，代码示例：

' 关闭屏幕刷新
Application.ScreenUpdating = False

' 可放置多次复制操作，全程无界面跳转
ActiveWorkbook.Sheets("XXX").Copy After:=ActiveWorkbook.Sheets("YYY")
' 其他工作表操作...

' 务必恢复屏幕刷新，否则会导致Excel界面无响应
Application.ScreenUpdating = True

建议配合错误捕获语句使用，避免代码异常中断时屏幕更新状态未恢复

内容的提问来源于stack exchange，提问作者sokoviaaccords