VBA：工作表 屬性：COPY

第一種：

變數TEMP：存放要複製的工作表名稱

直接複製，會生成一頁一模一樣的工作表在獨立的工作簿當中

Private Sub CommandButton1_Click()

  TEMP = ActiveSheet.Range("f7")

  Sheets(TEMP).Copy

End Sub

第二種： 

針對TEMP作工作頁複製，並複製到最後一頁

sheets. Count：總工作表

變數TEMP：存放要複製的工作表名稱

AFTER:=：用來控制位置之後的位置

Private Sub CommandButton1_Click() 

   TEMP = ActiveSheet.Range("f7")

   Sheets(TEMP).Copy AFTER:=sheets.Item(sheets.Count)

End Sub

BEFORE:=：用來控制位置之前的位置

Private Sub CommandButton2_Click() 

     TEMP = ActiveSheet.Range("f7")

     Sheets(TEMP).Copy BEFORE:=Worksheets.Item(1)

End Sub

第三種：

        指定工作表，指定複製位置

Private Sub CommandButton3_Click()

     TEMP1 = ActiveSheet.Range("f7")

     TEMP2 = ActiveSheet.Range("f8")

     Sheets(TEMP1).Copy AFTER:=Worksheets.Item(Sheets(TEMP2).Index)

End Sub

Private Sub CommandButton4_Click() 

      TEMP1 = ActiveSheet.Range("f7")

      TEMP2 = ActiveSheet.Range("f8")

       Sheets(TEMP1).Copy BEFORE:=Worksheets.Item(Sheets(TEMP2).Index)

End Sub