如何批量创建excel工作表名

2024-12-15 11:52:16

推荐回答（5个）

回答1：

批量创建Excel工作表。
Sub a()
Dim a As Integer
a = InputBox("输入你想创建的个数", "输入数字", 1)
If IsNumeric(a) Then
Worksheets.Add after:=Worksheets(Worksheets.Count), Count:=a
End If
End Sub
批量创建工作表并依次命名为单元格A1：A下边的单元格，

Sub a()
Dim a As Integer
a = InputBox("输入你想创建的个数", "输入数字", 1)
If IsNumeric(a) Then
For i = 1 To a
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = ThisWorkbook.Sheets(1).Cells(i, 1)
Next
End If
End Sub

回答2：

创建新工作表相信大家都知道，鼠标右键点击工作表标签即可，那么要创建多个工作表呢？先把要创建的工作表名称列出来

回答3：

回答4：

参考这网页链接，随意定制工作表名

回答5：

快捷键SHIFT+F11，按一下建一个，需要建多少就使劲按