本示例复制工作表 Sheet1,并将其放置在工作表 Sheet3 之后。
ActiveWorkbook.Worksheets("Sheet1").Copy
After:=ActiveWorkbook.Worksheets("Sheet3")