VBA创建工作表2新建

【2】VBA创建工作表 

3/批量添加EXCEL指定名称的多个工作表并设置超链接！你学会了吗？/今日头条极速版

2）用vba新建工作表，并命名

https://zhidao.baidu.com/question/329226104458348125.html

Sheets.Add(, Sheets("11月")).Name = "10月"

https://zhidao.baidu.com/question/1860899821034672627.html?qbl=relate_question_3&word=vba%B4%B4%BD%A8%B9%A4%D7%F7%B1%ED%B2%A2%C3%FC%C3%FB

宏代码来

Sub 指定位置自新建工作表百度并命名()

Sheets.Add before:=Sheets(1)

'before 前边问.after 后边

ActiveSheet.name = "表1"

Cells(1, 1) = "A1单元格输入的内容答"

End Sub

1）【VBA实战之新思路，一次循环解决按字段拆分问题】今日头条极速版

4/excel中使用vba新建一个工作表的方法-百度经验  https://jingyan.baidu.com/article/0a52e3f4c9d27dbf62ed7236.html

Option Explicit

Sub ddt()

Dim a As Integer

a = InputBox("请输入工作表编号")

ThisWorkbook.Sheets.Add Before:=Worksheets(a) '添加一个新工作表在第一工作表前

End Sub

5/Excel 新建工作表并重命名，如已有重名则删除重名继续新建

http://club.excelhome.net/thread-1462715-1-1.html

新建工作表并重命名：

Sub add()

Application.Sheets.add.Name = "数据"

End Sub

2#Sub add()

Application.DisplayAlerts = False

For Each ws In Worksheets

  If ws.Name = "数据" Then ws.Delete

Next

Sheets.add.Name = "数据"

Application.DisplayAlerts = True

End Sub

【】