如何在新建工作表后将其设为活动工作表？VBA宏问题求助

嘿，作为VBA新手遇到这种小问题太正常了，我来帮你搞定！

你的宏现在能成功复制"Costing Sheet"生成新表，但最后活动工作表还是停在"Line Item Summary"，核心原因是依赖ActiveSheet的操作不够稳定，而且可能Sheet7.NewLine过程里的代码悄悄切换了活动表。最可靠的方法是把新创建的工作表用变量存起来，直接操作这个对象，最后再激活它——这也是VBA里的最佳实践哦。

修改后的完整代码 #

Sub NewSheet()
    Dim newWS As Worksheet
    
    Call Sheet7.NewLine
    ' 复制工作表并将新表对象赋值给变量
    Set newWS = Worksheets("Costing Sheet").Copy(After:=Worksheets("Costing Sheet"))
    ' 直接操作新表的单元格，不用依赖ActiveSheet
    newWS.Range("B6:F68").Value = newWS.Range("B6:F68").Value
    ' 激活新创建的工作表
    newWS.Activate
End Sub

关键改动说明 #

• 用变量保存新表对象：Set newWS = ...这一步把复制出来的新工作表直接存到newWS变量里，不管后续代码怎么切换活动表，我们都能精准定位到这个新表。
• 直接操作对象而非ActiveSheet：原来的ActiveSheet.Range可能会因为其他代码（比如NewLine过程）改变活动表而出错，现在用newWS.Range直接操作目标表，更稳定。
• 最后主动激活新表：newWS.Activate确保宏执行完后，新表成为当前活动工作表，完全符合你的需求。

如果只是想快速修改原有代码，也可以在Copy之后立刻加一句ActiveSheet.Activate，但这种方法不如用变量保存对象可靠——万一中间有其他代码切换了工作表，这行代码就会激活错误的表。所以还是推荐用变量的方式哦！

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