从一个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")
代码说明
[ 查看全文 ]