一键获取当前工作表目录
新手如何运行VBA代码，请参考专栏首篇文章。
按指定的字段去拆分
功能演示
举个例子
动图展示如下
提示我们选择需要拆分的列
一共拆分出多个工作表
如果表格中已经存在相同工作表的名字，代码会进行提示，需要删除后重试。
需要注意的是，如果表格有多个插页（sheet），默认会拆分当前选中的插页。
下面为代码部分，小伙伴们直接复制粘贴，即可运行。
新手如何运行VBA代码？
代码块
Sub 保留表头拆分数据为若干新工作表()
Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%
购买专栏解锁剩余65%