CopyWorksheet() MsgBox\"在当前工作簿中复制工作表sheet1并将所复制的工作表放在工作表sheet2之前\"
Worksheets(\"sheet1\").Copy
Before:=Worksheets(\"sheet2\")
MsgBox\"在当前工作簿中复制工作表sheet2并将所复制的工作表放在工作表sheet3之后\"
Worksheets(\"sheet2\").Copy
After:=Worksheets(\"sheet3\")End Sub
示例说明：Copy方法带有2个可选的参数，即参数Before和参数After，在使用时两个参数只参选一。
因篇幅问题不能全部显示，请点此查看更多更全内容