VBA Excel 直接增加任意名字sheet

VBA编程的时候

我们增加sheet的时候

一般都是先增加，再改名字

Sheets.Add

sheets(1).name = "newName"

 

原来还可以直接增加某个名字的sheet

Sheets.Add.Name = "newName"

 

另外Range拷贝的时候

如果不是激活的sheet ,

rang("A1").select的时候就会提示 错误

可以这样

       Sheets("sourceSheet").Range("A1").Copy  '这是关键
       Sheets("dentisty").Select
       Sheets("dentisty").Range("A2")).Select
       activeSheet.Paste