关于“新建”的8段基础vba代码

1. 新建一个工作簿：

Workbooks.Add


2. 新建一个工作表：

Sheets.Add


3. 新建一个工作表并命名为“新工作表”：

Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = '新工作表'


4. 新建一个工作表并将其移动到第一个位置：

Sheets.Add Before:=Sheets(1)


5. 新建一个工作表并将其复制到指定位置：

Sheets('Sheet1').Copy After:=Sheets(Sheets.Count)


6. 新建一个工作表并将其复制到指定位置并重命名：

Sheets('Sheet1').Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = '新工作表'


7. 新建一个工作表并将其复制到指定位置并删除原工作表：

Sheets('Sheet1').Copy After:=Sheets(Sheets.Count)
Sheets('Sheet1').Delete


8. 新建一个工作表并将其复制到指定位置并删除原工作表并重命名：

Sheets('Sheet1').Copy After:=Sheets(Sheets.Count)
Sheets('Sheet1').Delete
ActiveSheet.Name = '新工作表'