本示例复制工作表 Sheet1,并将其放置在工作表 Sheet3 之后。

ActiveWorkbook.Worksheets("Sheet1").Copy

After:=ActiveWorkbook.Worksheets("Sheet3")