Excel中的vba復(fù)制工作表，一般是使用Copy方法,。但往往復(fù)制的要求不同,，因此代碼也有所不同。我們以兩個常用的vba復(fù)制工作表例子來加以說明和學(xué)習(xí),。

　　vba復(fù)制工作表案例一

Sub vba復(fù)制工作表()
  Worksheets("sheet1").Copy Before:=Worksheets("sheet2")
End Sub

　　說明：上面代碼的意思是：在當(dāng)前工作簿中復(fù)制工作表sheet1并將所復(fù)制的工作表放在工作表sheet2之前,。

　　又比如：Worksheets("sheet2").Copy After:=Worksheets("sheet3")，這句代碼的意思就是在當(dāng)前工作簿中復(fù)制工作表sheet2并將所復(fù)制的工作表放在工作表sheet3之后,。

　　Copy方法帶兩個可選參數(shù),，Before和After,，使用時兩個參數(shù)任選其一。

　　vba復(fù)制工作表案例二

Sub vba復(fù)制工作表()
    Dim bok As Workbook
    ActiveSheet.Copy
    Set bok = ActiveWorkbook
    bok.SaveAs "blwbbs.xlsx"
End Sub

　　說明：上面代碼的意思是將當(dāng)前打開的工作薄中的當(dāng)前工作表,，復(fù)制到同一路徑,，并單獨(dú)保存為一個工作簿，文件名為blwbbs.xlsx,。