Excel中批量添加多张工作表并重命名

今天的任务还是做表归类。需要在一个Excel文件中建立26张工作ibao,并以a~z进行重命名。方便对厂家进行归类。这种工作还是交给VBA好了……

  1. 新建一个Excel文件,打开。
  2. Alt+F11,召唤神龙!
  3. 复制下面的代码

 

Sub 批量加表()
Dim i&, userinto
i = 0
userinto = 26
If IsNumeric(userinto) = True Then
Do Until i = userinto
Worksheets.Add
i = i + 1
Loop
End If
For i = 1 To Sheets.Count
Sheets(i).Name = i + 100
Next i
For i = 0 To Sheets.Count - 1
Sheets(i + 1).Name = Chr(97 + i)
Next i
End Sub

第四行中的26可以改成想要添加表格的数量。如果只需要批量添加表格而不重命名的话可以用这个

Sub 批量加表()
Dim i&, userinto
i = 0
userinto = 26
If IsNumeric(userinto) = True Then
Do Until i = userinto
Worksheets.Add
i = i + 1
Loop
End If
End Sub

就是这样~

发表回复

您的电子邮箱地址不会被公开。