从一个Sheet中的Range拷贝数据到另一个Sheet中的Range
Dim myWorksheet AsWorksheet
Dim myWorksheetName As String
myWorksheetName = "MyTableName"
Sheets.Add.Name = myWorksheetName
Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/diannaorumen/）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方法将数据拷贝到新表中对应的单元格中。
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/diannaorumen/）以上代码在VBA环境中使用。
