芮和
分享更多关于Office的知识

Excel创建100个工作表 使用这个技巧只需要10秒钟

又到了分享自定义VBA插件的时候了,本期给大家分享一个批量创建工作表的VBA自定义插件,在前面的教程中,我们给大家分享过利用透视表的「报表筛选页」来实现快速创建工作表,今天我们使用更加简洁的办法。

Excel创建100个工作表 使用这个技巧只需要10秒钟

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

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

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

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

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

02 配置自定义功能区

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

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

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

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

相关文件下载地址
本站无任何弹出广告,若有浏览器(ADblocker)拦截,请添加本站白名单!
赞(0)
未经允许不得转载:芮和 » Excel创建100个工作表

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

买域名,就上缘分域名!

立即前往联系卖家