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

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

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

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

　　又比如：Worksheets("sheet2").Copy After:=Worksheets("sheet3"),，這句代碼的意思就是在當前工作簿中復(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

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