EXCEL如何快速创建指定名称的工作表？

在Excel中按指定名称批量创建工作表，通常有两种方法，一种是使用透视表的显示报表筛选页功能，另外一种是使用VBA代码来创建。下面我给一种使用VBA代码批量创建工作表的方法。

如图，需要按照A列区域A2:A13单元格中指定的名称，批量创建工作表

透视表方法我们略过不表，但说VBA方法，代码如下

Sub Createsht() 'by Excel泥瓦匠

Dim rng As Range

Dim sht As Worksheet

MsgBox '请检查需要新建的工作表名称中是否包含/\?:*<>等特殊字符，如果包含请替换为别的字符', vbCritical

Set rng = Application.InputBox('请选择要新建工作表名称的存放区域', , , , , , , 8)

On Error Resume Next

For Each rng1 In rng

Set sht = Worksheets(rng1.Value)

If Err = 0 Then

MsgBox '已存在工作表' & rng1.Value

Else

Set sht = Worksheets.Add

With sht

.Move after:=Sheets(Sheets.Count)

.Name = rng1.Value

End With

End If

Next

End Sub

将代码存放到VBE工程模块中，并指定到一个按钮，点击按钮运行代码，可提示选择需要新建工作表名称的存放区域，同时提示名称中不要带有特殊字符。

请看动画效果演示：

以上是对本问题的解答，希望对你有所帮助。

欢迎关注@Excel泥瓦匠，Excel学习，E路有你！