從一個(gè)Sheet中的Range拷貝數(shù)據(jù)到另一個(gè)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")

　　代碼說(shuō)明

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

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

　　最后通過(guò)Range.Copy方法將數(shù)據(jù)拷貝到新表中對(duì)應(yīng)的單元格中。

　　以上代碼在VBA環(huán)境中使用。