从一个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环境中使用。