Public Sub 技巧3_042() Dim ws As Worksheet Set ws = Worksheets(2) '指定工作表 ws.Activate Set ws = Nothing End Sub