落絮飞雁的个人网站

顺流而下,把梦做完

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

就是这样~


原文标题:Excel中批量添加多张工作表并重命名|落絮飞雁的个人网站
原文链接:https://www.luoxufeiyan.com/2014/07/29/excel%e4%b8%ad%e6%89%b9%e9%87%8f%e6%b7%bb%e5%8a%a0%e5%a4%9a%e5%bc%a0%e5%b7%a5%e4%bd%9c%e8%a1%a8%e5%b9%b6%e9%87%8d%e5%91%bd%e5%90%8d/
授权协议:创作共用 署名-非商业性使用 2.5 中国大陆
除注明外,本站文章均为原创;转载时请保留上述链接。