落絮飞雁
落絮飞雁

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

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中批量添加多张工作表并重命名|落絮飞雁的个人网站
授权协议:创作共用 署名-非商业性使用 2.5 中国大陆
除注明外,本站文章均为原创;转载时请保留上述链接。
没有标签
首页      编程      软件      Excel中批量添加多张工作表并重命名

发表评论

textsms
account_circle
email

落絮飞雁

Excel中批量添加多张工作表并重命名
今天的任务还是做表归类。需要在一个Excel文件中建立26张工作ibao,并以a~z进行重命名。方便对厂家进行归类。这种工作还是交给VBA好了…… 新建一个Excel文件,打开。 Alt+F11,召唤神龙…
扫描二维码继续阅读
2014-07-29