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

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

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

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

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

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

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

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

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