從一個Sheet中的Range拷貝數據到另一個Sheet中的Range

　　Dim myWorksheet AsWorksheet

　　Dim myWorksheetName As String

　　myWorksheetName = "MyTableName"

　　Sheets.Add.Name = myWorksheetName

　　Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)

　　Sheets("Sheet1").Range("B1:B27").Copy Sheets(myWorksheetName).Range("A1")

　　代碼說明

　　Sheets.Add.Name = myWorksheetName用于在Sheets集合中添加名稱為myWorksheetName的Sheet;

　　Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)將剛剛添加的這個Sheet移到Sheets集合中最后一個元素的后面

　　最后通過Range.Copy方法將數據拷貝到新表中對應的單元格中。

　　以上代碼在VBA環境中使用。