Excel创建100个工作表

Excel 10个月前 芮和
959 0 0

Hi,大家好,这里是芮和。

谈到批量创建工作表,大部分小伙伴都是使用类似「方方格子」这种插件来实现的,或者利用透视表的「报表筛选」功能,最近有不少同学在反馈办公环境不准安装外部的软件,碰上这种重复性的工作该怎么办,其实很简单,既然不准安装外部软件,那么我们就自定动手写自定义插件吧~

今天要分享的自定义VBA代码叫「批量创建工作表」,文末可以下载插件源代码。先来看下演示:

Excel创建100个工作表

01 插入VBA代码

由于VBA代码的学习需要一定的基础,这里就不做太多详细的解释。

点击「开发者工具」下的「查看代码」,然后将「代码」复制进去即可,代码如下:

Sub BatchCreteSheets()  
   On Error Resume Next
   Dim nameRange As Range   Set nameRange = Application.InputBox(Prompt:="请选择一列工作表名称", Type:=8)  
   If nameRange.Columns.Count > 1 Then
       MsgBox "请选择一列名称区域"
       Exit Sub
   End If
   If nameRange.Count > 1000 Then
       MsgBox "名称数量过多,请检查后再试"
       Exit Sub
   End If
   Dim sh As Worksheet   Dim cell As Range   For Each cell In nameRange
       If cell.Value <> "" Then
           Set sh = Worksheets.Add(after:=Worksheets(Worksheets.Count))
           sh.name = cell.Value      
    End If
NextEnd Sub

简单给大家演示下动图操作:

Excel创建100个工作表

02 配置自定义功能区

细心的同学可能已经发现了,现在的操作还非常原始,上面的动图,我们是在菜单里点击按钮进行操作的,那么这个是如何设置的呢?其实也很简单。

右击「任意菜单选项」,打开「自定义功能区」,在「右侧」选择「新建选项卡」,将选显卡进行重命名,然后在「左侧」选择「」,将刚刚的「VBA代码」添加到组中,这样就可以完成了。

Excel创建100个工作表

点击文末下载按钮,获取该份插件。

好了,那么关于「自定义插件」的教程就分享到这里了,除了上面的这种办法,其实还可以在「个人工作簿」中创建宏,这样就是全局的,更多的教程,我们将会在7月份发布的「VBA实战课」中给大家带来。如果你有想学的 Excel 技巧,可以在评论下方进行留言哦~

版权声明:芮和 发表于 2020-07-28 0:00:04。
转载请注明:Excel创建100个工作表 | 芮和

相关文章

暂无评论

暂无评论...