如何利用宏按条件拆分多个表格

excelvba 红原代码分享用 vba 红如何一键拆分工作表？大家好，本期呢，我们来分享一个，呃，直播期间讲的哈，一键拆分工作表一个圆码啊，这边的话我们看一下一个效果啊， 刚实现的效果呢哈，就说这边啊，会按照这个订单号啊，前面这个编号是吧，比如说 a 的放在一块， b 的放在一块， c 的放在一块啊，后面哈，这样，然后我们点一键拆分， 可以看到哈所有什么 c 产品的放到一块了，所有，那 b 型号放到一块了，所有 a 型号的呢放到一块啊，就这样一个效果。那具体怎么去实现呢？一键拆分的呢？我们来看一下这个软带码， 这里稍后呢哈，主要分为这样几步，第一步呢哈是提取型号首字幕啊，怎么去提取呢？哈，那这边的话 这句话呢，是获取一个好好啊，或许好好的话就是动态哈，先获取一下这个表格区，就这个单号区啊，单号区啊，有时候这个表，那个单号区啊，这一块，然后呢，我们去什么去循环这个，这单号区中每个单元格 循环每一个啊，循环的时候呢啊，就说我们让他的第八列啊，就说这个单一歌手最近的第八列是这个地方，然后呢哈提取他的表头啊，就 abcd 哈，给他提取出来， 这样，那通过一个来说就可以了。那么第二步的时候呢哈，呃，我们提取之后的话，干什么对这些字母进行去虫，为什么去虫呢？哈，因为啊，有几有几类是吧？呃，去虫之后就看下有几类干什么，创建几个表就行了。所以说啊，这一步就是去虫，并创建表， 驱虫的话我们用的是这样一个原理啊，就是循环这个区域，凡是这个区域当中的啊，比如说循环到这个单一格了啊，循环到这个单一格了，我用了一个动态区域， 看我这一幅啊，看我这一幅函数啊，看我这一幅函数的时候，比如说循环这个就查一下啊，这里面有几个 a， 有几个 a 哈 啊，如果说这个 a 是一的话，说明什么？他是第一次出现，比如说啊，比如说我们什么需要去重的指，比如说哈取所有里面啊， s 等于一的啊，等于一的时候，我们此时哈就让他去创建一个新表啊，这边上默认是创建的表伟啊，就这句话，创建表啊，创建的表伟， 然后的话健康的表明呢哈，命名成的哈，当前啊，这个单一格的纸就等于一的这个单一格的纸啊， 好，是这一步哈提取，然后获取相同编号呢，并那个数据复制到分表啊，然后话呢，接下来事情就是说，首先哈，我去外层两做了一个双层循环，外层是循环每一个表，内层的话是循环这个啊对立 啊，因为我们这里面用的知识点啊，都是我们第一季当中啊啊课程的知识点啊，所以说啊，呃，并没有这个用速度之类的啊，我们就直接用了一个双层循环，这边循环的时候呢， 凡是这个数据当中等于什么？等于表明呢？哎，比如说循环到 a 表是吧？等于 a 的啊，然后呢都取出来，然后呢把这所对应的这一行数据啊，或许他好好又把这一行数据啊给他复制到 我们这个表表示意当上来就行啊，然后接着啊，依次往后去复制粘贴。哎，就是这样啊，一个双通行来直行出来。 ok， 这里哈就是整个的这个一键拆分表这个代码大家可以去练习一下。好啊，感谢观看，那个我给他放大点啊，感谢观看我们本节那个代码分享。大家好，可以多关注和点亮我的视频，也可以关注我们的直播啊，下期再见。

各位同学大家好，我是鬼谷香，本期要分享的内容是按部门拆分表格。说到拆分表格，很多同学认为一定要用到 vba， 其实不然，我们只需要用数据透视表点几下就能实现表格的拆分。 比如说这个案例要求我们根据部门将汇总表拆分为各个子表，我们首先将鼠标放在数据源上，点击插入数据透视表，点击确定之后得到一个数据透视表，把拆分依据也就是部门拖动到筛选器里面， 剩下的所有字段，我们依次把它放到行标签的位置就可以了，全部放进来， 放好之后，我们来调整一下它的格式，点击一下数据透视表，这里才会出现分析和设计选项卡，点击设计， 找到左边的分类汇总，点击不显示分类汇总，总计里面点击对行和列禁用 报表布局，选择以表格形式显示，然后再点报表布局，里面重复所有标签项，是不是就得到了一个和汇总表几乎一样的表格？除了部门，我们放到了筛选器里面，这时候再点一下数据透视表，找到 分析选项卡，左边有一个选项，这里有一个下拉菜单，里面有一个显示报表筛选页，点一下 弹出的对话框当中只有一个部门就是我们的拆分依据，点击确定，你看这所有的部门是不是就被拆分出来了，而且对应的部门里面的数据只有他自己的数据， 但是这时候这个数据是以透视表的形式来展示的，我们需要把这个格式给它去掉。怎么批量去掉呢？首先选中第一个部门，然后按住最后一个部门，这样把它全选， 然后点击左上角全选表格， ctrl c 或者是右键复制，然后再右键 粘贴为值。这时候呢，就批量把数据透视板的格式给去掉了，再把上面多余的行删掉，你看这时候是不是就只剩下各个部门的数据了？我们只需要做一下表格的美化就可以了，比如说我们选中给大家加一下框线 标题的位置，加个颜色啊，字体调一下，居中一下就可以了。至于这种美化的工作呢，就大家根据自己的喜好去做就可以了。但是这样呢，我们就实现了 按照部门将汇总表拆分为各个子表，是不是非常简单？傻瓜式的操作，你学会了吗？学会点个关注，我们下期再见！

录制红也可以实现把总表按照某一列进行拆分到各个子表结尾，由进阶提问。欢迎快到最后。接下来我们继续讲，我们现在看每个子表都是空的，我们点击录制新红，然后依次筛选复制粘贴到各个子表， 只要我们点击停止录制，这样红就做好。接下来就是看效果的时候了，我们先把各个子表的数据清除了， 只要我们点击录制红口，点击运行红， 看这样一下就实现了。有没有人好奇，假如说这个客户新增了，有什么简单简单办法可以实现吗？欢迎关注，持续更新！

excel v b a 红原代码分享 v b a 红实现将明细总表一键拆分成多个分表。大家好，本期呢，我们来分享一个 v b 红的一个案例，就是如何呢一键把一个表格呢？哈去拆分成多个表格， 比如说哈，我们这边有一个呃，有一个名气总点啊，我们先看一下最终效果，当我点一下这个一键拆分之后呢哈，呃，可以看到哈，呃，拆分完成，拆分完成之后，这里可以看到哈呃，凡是呃属于橘子呢都那个小数据呢，都到这里了，对吧，下面会见多个分点 属于同一类的，然后呢这个数据呢哈会放到那个同一个表当中啊，这样一个效果啊啊，这个是怎么实现的呢？我们来看一下这个原代码， ok， 点击右键指令红，我们来看一下点编辑这个的话 是我们直播课期间讲的一个案例啊啊，大家欢迎大家哈，如果说每天那个看一下学我们直播课的话，可以到九九点多啊，就关注我们的直播间， 然后这个时候一键拆分这一块呢啊，首先的话这个原理是这样，首先呢对产品的话进行循环并进行去重数据，什么意思呢？比如说哈，我们这个产品数据的话是有重复记录的，所以说哈这边哈点拆分的时候呢，需要把这个产品先去重啊，去重之后的话 就代表着就什么呢？我们有几个表啊？我们也比如说哈，我们有几类产品啊，意味着哈，这后面要创建几个表啊，所以说要进行产那个驱虫的 好，那所以说哈，这个地方去除原理是这样的啊，就说我去循环每个行号，然后呢循环每个行号啊，这里哈去 原理啊，我已经把它写到后面了哈，我们用一个 cover if 函数去给它去除 cover 函数，这里哈，我用一个什么呢？哈啊？动态区域，就是前就前面哈，这个第一个单元锁定，后面不锁定， 然后话有几个一八是吧？我就这个原理是这样的啊，就是说哈往下拖动的时候，比如说到这里哈，这里面有几个苹果是吧？然后这里面很明显凡是等于一的，就意味着哈，哎，这个表格数据的第一次记录，也就说哈他是去除之后的数据，这等于一的啊， 依次说呢哈，我们在循环这个行号的时候，用一个否循环啊？否循环，循环第八行到二十七行是吧？这个表格区域循环行号的时候，凡是这里面哈。呃，这是呃内部电话函数啊，用一个 apple kitchen 是吧？ callif， 然后查询这个区域当中哈有几个这个这个值 有相当于哈我们这边哈啊往下拖动这个原理啊，所以说大家哈这 vb 的话要有一定的基础啊，这就是循环好好啊，要用 s 去计数，计数哈，你说循环到这个是吧，这个这个 s 是几，就是后面这个值是几啊？凡是等于一的，如果等于一的就是我要的值，然后这时候的话哈， 把它表面取出来表明的话哈，就等于一的，比如说这时候是苹果是吧？嗯， bm 是它表明哈，把它表明取出来，然后去创建表格，表尾创建表格，然后的话哈把它命名成啊这个名称就可以了。 然后啊，这个地方是 btbt 上是表头啊，就提前设定一个表头啊，就这一部分啊，把这个表头呢哈先复制到 ad 单音格，然后呢哈啊再去循环查找。这次啊用了，用了一次循环查找。呃，循环查找的时候凡是哈 等于这时候的这个什么这个表明呢？是吧？等于这个表明，比如说哈苹果一这里面表头复制过来了，然后哈去找所有等于苹果的数据，所以说哈又再次在里面循环了一次，那这个行号凡是哈这 a 列当中等于苹果的，然后呢全部给它复制到这边来。 ok， 由这边哈用循环去查找并复制，是吧，点 copy 就可以了。好，就是这样一个过程，最终的话就呃拆分完成了啊，这边所用的这些基本语法和知识点的哈，基本上都是我们的 vbdc 当中的知识啊，大家可以愿意学习的话可以学习一下， 非常棒啊，这个的话对于我们这个财务工作人员来说，实现一些做饭办公啊，非常有用处啊，你看代码是横间断的，就那么一段啊，当然这边我给大家开放一下啊，你们可以截个图啊，可以尝试去看一下，试试 试一下看能不能做出来啊，就这样一个原理。好，感谢大家呢哈观看本节视频，如果说想学习每天来学习我们的视频的话，可以关注，然后多关多点赞。好吧啊，本期到这里，下期再见。

这个表格包含了小区的楼房和住户信息，其中有户主姓名、电话等， 要把它按照楼栋分开，把每单元每层住户分成左中右三个位置。把单元号、姓名以及电话号码合成到一个单元格里， 这里演示用 power query 实现它的步骤。打开 power query， 打开 power query 中已经做好的表， source 就是 excel 中的表。 把房号按照数值位数分为楼层数和房间号，根据房间号增加一列内容为左中右， 合成最后需要输出的信息。 把单元号类型改为文本，方便后面合成。 把一二三改为一二三，数值后面加上单元两个字组合单元号和左中右为一个心列。 删除不需要的列。 根据需要选举楼号，这里选择二号楼， 选举后把楼号列去掉。用 pivot 把单元号和左中又变成表头。把楼层变成整数型，并从大到小排序。手工产生一个表，用来对其输出的列。 根据输出需要输入的内容，在这里扩展成型。合并单元号和左中右，去掉所有其他列， 把列变成行，提升行为。表头 增加一个楼层列，然后把它拉到第一列，用扩展查询把二栋信息扩展到输出列名。加载回 excel， 选择合适的单元格，加载整理后的数据结果， 整理一下格式就好。

刚帮助了一个学员处理了个特别头疼的问题，他有一万多行的这个销售表，老板让他按区域来进行拆分成五个表格，然后分别发给每个区域的这个经理。 以前的做法呢，是通过筛选复制，然后新建一个表格，再粘贴，再重命名，那么你反复的要做五遍，半个小时就没有了。那么今天来分享一下如何快速的处理这类的表格。首先呢，我们可以打开我们的 ar 软件，然后在这里面呢，我们可以切换到 ar 表格，然后将刚才的文件进行一个上传， 按区域列拆分成多个表，发送三十秒， ar 自动地写完这个脚本，一键跑完五个表格，在这地方整整齐齐。你可能说我不懂代码怎么办？你不需要懂，你只需要会打字就行了， ar 就是 你的程序员。 以前呢，学 excel 需要记韩数，学 vba， 学红，现在学 ar 说人话就够了，记得关注我哟，每天带你学点 ar 办公的小技巧。

同学们好，每周一学，今天呢我们来讲一讲 vba 批量拆分工作表工作部，嗯，大家看到呢，这里有一个，呃，一个 cl 工作表，呃，里面呢是每一个店啊不同岗位人员的考核成绩， 这个时候呢，呃，如果咱们需要，嗯，给每个店呢，把他的成绩 拆分出来，发给这个电，我们呢就需要，一般情况下呢，我们是把这个电进行一个筛选，比如说雁塔筛选完了呢，把这个雁塔电的这个数据呢复制出来啊，新建 一个表啊，单独发给雁塔电啊，嗯，如果电少的话呢，这个还好办，如果有一百来个电，那这样子去一个一个复制呢，就非常费劲了。今天呢，嗯，我给大家教一招呢，就是用 vba 啊来拆分工作表工作部，这样呢就能够实现迅速的批量的这个拆分。 呃，首先呢，大家看到呢，这个菜单上有个开发工具栏，呃，有的，这个一个 siri 上呢，可能没有，没有呢是在这里打开，我给大家演示一下，点击文件，点击选项，在弹出的这个 菜单里头呢有一个自定义功能区，点击开以后呢，这有个开发工具啊，我们如果把它点掉呢，我们点确定， 大家看这个菜单上呢，这个开发工具就消失了啊，我们一般呢是需要用到他的，所以我们要点击文件，点击选项， 点击自定义功能区，再点击开发工具，点击确定啊，这个时候我们看到了开发工具就出现了，现在呢我们点击开发工具， 大家看到呢最左边呢有一个 vrogaccc， 这就是我们说的这个 vba 书写程序和代码的地方，我们点开它， 点开他以后呢，呃，大家看到呢？呃，弹出来一个工程 vip projix， 我们看到呢，在最底下呢有个雷斯沃克 book 啊，我们一般呢双击 这个类似，我可打开以后呢，这里就是书写代码的地方啊，我们现在呢要先拆分工作表，就是把每个店呢，嗯， 把它拆出来工作表啊，那么我们先要做第一步，第一步呢我们有一个程序，这个程序呢大家在百度一下，可以在网上也能查到啊，这里呢我把它直接复制过来， 好，这已经复制过来了，复制过来以后咱们这个表的啊，咱们这个 ab 的小程序的名字就叫拆分工作表啊，这个程序呢，大家也不用说非要看的很明白啊，大家只要知道怎么用就行了， 那这个时候如何运行他呢？我们注意看呢，在上头这个菜单里头有一个类似于播放键一样的，这个呢就是运行咱们这个程序啊， vba 的这个运行键，我们点击他在 弹出的窗口呢说请选择您要拆分的列，那个，这个时候呢，我们回到这个主表啊，我们选择列，那么我们肯定是选择这个所属店，因为我们要给各个店，嗯，把这些所有人员的考核成 就得单独发过去，所以选择这一列。选择之后呢，我们点击确定啊，他就开始运行了，运行完以后呢，我们把它关闭啊，这个 ab 都关掉啊，回到这个大标 啊，这时候我们看到呢，在底下呢就有莲湖殿，长坝殿，雁塔殿，新城殿，高新殿 这些资料呢，就分别都生成了一个单独的工作表，这说明呢这个总表呢就成功的被拆分成了这个分表啊，每个表都有了， 这个时候呢，因为我们要给每个店呢单独要发过去，哎，两户店给一个，一个一个饲料表啊，产吧给一个。那这个时候呢，我们不能在一张表里头呢，同时 把这些店都显示出来，所以呢这就要用到这个拆分工作布，拆分工作布呢也是一样，我们在这个呃这个表的开发工具呢，点击 lbaxy 还是点击内锁个 book 啊？点击以后呢，我们现在呢需要把这个拆分工作布的这个啊未必小程序呢啊，给他复制过来啊，这时候我们再看一下，在这里拆分工作布 啊，把这个小程序 vip 小程序复制一下啊，这个时候呢我们把它粘贴到这里， 大家看到呢这个拆分工作部的这个小程序也就出来了啊，这个时候呢大家注意看这个小程序里头呢有一个就是拆分的一个路径 啊，就是这个引号 c 盘的啊，带这个特普啊啊，这个路径，这个路径呢，因为大家根据自身的实际情况呢，也可以呃做一个呃自己的一个分配，你比如说我们现在是在这个文件夹里边， 那怎么知道这个文件夹的路径呢啊？我们一般是按住 shift， 然后点击右键，这时候呢在弹出的菜单里头呢有一个复制为路径， 嗯，咱们左键点击，这时候呢就把这个文件所在的文件夹啊位置就复制出来了，我们在这个时候呢把它再贴到这个位置， 把它替换掉啊，你看这个呃这个路径呢也是很长的啊，然后呢我们把这个小文件 拆完工作布，这个我们就给他删掉了。啊啊，这个地方要进行一个修订啊，前面呢你看因为多了一个双引号啊，我们要把它去掉一个。 好了，这个时候呢我们就把这个呃该放置的这个地方呢就进行了一个修订啊。然后呢我们现在开始运行这个拆分工作部这个小程序还是一样，我们点击这个播放这个运行键，程序在 运行，不断的闪烁。好，他运行完了，运行完了以后我们把这个未必这个小窗口就关掉了啊，好，关掉以后呢，我们到这个咱们的文年家去看啊，大家也看到了，产坝高新，莲湖新城和 电塔呢，都在这里单独的啊，就生成了，大家可以随机打开一个看一下啊，你看这就是产八电的，我们单独发给产八电就可以了啊，今天的课程就讲到这里，大家下来呢可以勤加练习，谢。

下面讲的案例是比较简单的，就是将我们数据表，这里面的数据就是每一行的数据 拆分成多张表格，然后按性能保存成一个文件。具体是这样，比如说张三这个， 他这个表格啊，这个数据比较特殊。张三张三之后呢，他涉及到所谓的 有个学科啊，语文、数学、英语这么多学科，那么他需要保存成一个文件，这一这一行保存成一个文件，这个文件是文件名呢，是按照张三姓名来保存的，但是表格内呢是一个多学科，比如说语文 啊，你要保留这里面，比如说是张三的啊，他是学号的九张三的，那你就是张三的语文，张三的数学是这样，每一个都是他对应的学科。然后保存文件的时候呢，将这几个表格同时在一个文件当中，然后 保存成一个新的工作部，工作部名呢，就是按照张三来命名的，这就是这么一个需求啊。 这个其实大家应用场景，有的人会问啊，因为这个表格有的人是按这种方式做的，有的人不一定是按这种方式做表格，比如有的人可能按张三这地方直接放圆，下面放分数，这地方直接放数学，下面放分数啊。而且拆分的时候，比如说工资条，他是拆分这一行， 跟你拆分到一个表格里面啊，给对应的人有有可能这样啊，给对应的人呢，你可能通过邮件把这一行数据发给某个人，让他对工资条， 这个呢，就是这么个格式啊，可能相对这种表格做数据的方式不同，我无所谓，就针对这个方式来做一下对应的处理， 我们看一下代码啊，这里面涉及到一个什么事情？就是说我们涉及到多个学科多个表格，那么多个表格呢？首先是这个文件里面时期呢， 是已经做好了多个学科对应的表格，而我们在实际应用场景的时候呢，有可能这几个学科在，有可能不在，换句话说，这个文件里这几个学科是不是让你与 保存来，这结果你得确认好啊，嗯，而我们这个代码事件呢，是我新创一个文件，然后把对应的学科对应过去，然后进行成绩赋值，最后生成文件啊，这是文件，对啊，这是字典对象后期绑定 下面这是 ar 数字，就是将数据表移用区域，这数据表移用区域复制给 ar 数字，这里面我们下面就生成多个文件的，生成了，我们就把屏幕刷新设置为 false， 然后高清提示设置为 false， 这两个属性我们要设置为 false。 下面我们要做一件事情，就是说我们要把这个文件有多少个学科， 我们读用字典读取过去啊，大家注意下这个，当然我们按第二行来读，当然认为这正常来讲，你这学科下面的名是必须填的啊，所以说我们按照第二行来读，获取对应的学科名称， 这是获取，获取之后呢，我们将这 sh 啊，就将 this book 这个数据表复制给 sh 表格啊， 把 s h 变量，因为下面我们要先生成一个工作簿嘛，当新成立有多个工作簿存在的时候，你要引用某个工作簿里面的内容，你注意前面它的对应关系，也就对应的工作簿的关系啊，引用表某一个表格内容的时候 啊，这个时候呢，我们用了个位子语句啊，到最后结束。这是新建一个 word 文档，新建一个 word 文档呢，这个 word 文档有多，新建的时候有多少张表格，你是不确定的，根据第二时间设置有关系，有可能多，有可能少，那么我们只需要对应学科， 对吧？其他的空表我不需要。所以这里面存在几个可能，一是你新生成的这个工作簿，他的表格数量 跟你这学科数量来比是少的，所以这个地，这个地方呢，我们就要给他追加对应的表格，那么数量就点是一次，大家注意一下点啊，点对应的是这个新建的这个工作步，然后呢点是一次 com 呢，就是表格数量表现映，我的表格数量加一 到字典里面所有的数量，有学科数量，如果不够的话，从它往后变例进行表格增加啊，这无所谓了，我是用的 before， 也填在第一张表前面，因为填的都是空表。 好了，这是一个条件，使我们表格不够，但是另外一种有可能，有的人的设置他比较多，可能表格比较多，那么这个时候表格如果比较多的话， 大家注意一下，我是 c 点 count 到 d 点 count， 也就需要的表格数量加一。这一部分是需要我们删除的啊，他是从后往前嘛，就是负一，不尝试负一，从后往前变力，然后把对应的表格进行删除。 大家注意一下，这个事情提现过啊，如果你表格里面有数据已经删除的，他会有一个提示，而你加了这条语句呢，就不会有提示了啊。好了，这个地方是说你表格比较多，我们要进行删除，上面是表格不够，我们进，加多了，我们就要进行删除，这两个往往只会执行其中之一啊， 并且放放条件，不用衣服去判断，因为你这放循环里面就有条件啊，不满足他就不执行了。 下面呢是从第一个到字典里面所有的兼职的数量进行便利便利的过程。干嘛我们把对应的表格表名你给我改了啊？表格的名称改了， 把表格的名称改了，就是按照这个学科要注意下这个学科改掉，因为字典里面他不对应学科。注意一下，字典里面他的兼职呢，是从零开始的啊，序号是从零开始，而这是从一开始，所以借鉴一，您改完之后，毕竟你新创文件它是一个空， 表格里面是空的，这个时候我们需要把对应的格式给它复制过去，就这个，然后 s 设置就对应数据表，把这个区间给它复制过去。 a 到 d 啊，复制过去，后续我们再把这个这里面内容做对应的修改啊， a 一 到 d 二，这个区间是复制过去啊，不是复制过去，拷贝过去，拷贝过去意味着带着格式一块过去啊， 等会我们生成结果，我们可以看一下这个地方， x 等零，因为这面有 message box， 我 做一个提示啊，现在对 ar 数据库进行变例，也就是对这表格区内容呢进行变例，从第二行往下变例。变例了之后大家注意一下，因为你按照文件名进行 保存，所以说你判断这个文件名，而且这个姓名你得长度有单元格内容，你大于零，对吧？才是有效的姓名，然后大于零，我认为这是有，就是认为有效姓名的 x 等于加一，就认为我现在要生成一个对应的工作簿，这工作簿里面，下面就是把对应工作簿里面的 每张表格里面对应的内容添加一下。好了，这是从第三列往后啊，因为我们要填对应学科，第三列往后对应的学科 style 啊，这跟上面是一样 style 不 常识一个找到学科对应的分数，那么这里面呢，大家注意一下点，是对应的这个新， 这个新建的工作步，然后呢？ ar i j 呢？ i j 对 应的是学科，因为刚才在这地方新创了一些表作，为了个表明嘛，按学科作为表，然后它的 a r 就 等于它的序号啊，这种按着格式生成，大家可以看一下，然后这个 b r 它因为每张表固定的就是这么个顺序。 b 二，我要改了啊， i 二 i 二， i 一 i 二，然后呢？这个 接 i 接也是这个啊，一直名儿 c 二， c 二就是对应的 i 接学科 d 二 对应的分数，也就是说这个姓名什么什么，后来写语文分数，然后下一个还是他，我加上这样学的名什么和分数啊，每一科的。然后你这个循环完之后，就像把每一张表的内容都修改完之后，注意把它进行保存，保存的路径是程序文件 路径下面的有个拆分结果文件夹就保存在 这里面啊，这程序文件下面成排，结果文件夹里面，然后名呢，就按姓名来保存， 让扩展名保存在点 x l s x 这种扩展名，这样循环啊，注意一下，我们始终是创建了一个工作簿，始终在这工作簿里面修改每一个表的里面的内容， 每个表格内容按照对应学生姓名进行修改，修改完事始终就是另存另存位，这样效率要比你频繁的新建工作簿，然后频繁的保存效率要高啊。 这样是始终用这个工作簿，然后添加数据另存位。而有的人处理方式呢，是每一次都新建，新建完了保存，然后把这文件关闭，下载新建，你这样效率相对的低一些啊。 这个就保存信件，然后呢，这两个属性设置完，最后执行完之后， messagebox 做一个提示，告诉你拆分生成了多少个文件。嗯，我们可以自行断点，逐步执行看一下啊。 好了，这上面倒没有什么东西啊，这复制了，然后复制给它，下面就开始新建 好。这是新建了一个工作簿，大家可以看到啊，它里有四张表格，而我们的学科好像不够我们的学科数量啊。 d 点 com， 它肯定是不够的。然后这个时候这个地方我们就要开始追加了， 你看在前面加了个五啊，然后放在这 好了，六，这又追加了个学科。好了，够了够了。之后，到这到这之后呢，它实际 count 到七点 count 呢，加一肯定是比七大于 step 一 嘛，它就不会实行这个了啊。这个断点看就不实行这个，那就到下面开始改名，从左往右一个个改名， 你看一下，第一个改成语文，然后注意一下，这里面内容不拷贝过来了吗？你改成语文之后，还要把这对应内容拷贝过来，带着格式拷贝过来啊。第一个长三角拷贝过来， 然后他每一个都会拷贝，数学都是这种格式给你拷贝过来。 好了，这个呢？我下面就没有设置断点啊，这样他就一次性这地方完事之后，下面再批量就修改每个人的信息进行添加，就把对应修完，这样就执行完了啊，速度还是比较快，然后这边就生成对应的结果，我们看这个人， 这就我们生成的结果啊，好。

首先点击工作表，工作表拆分表格，我们是打算按内容来拆分，因此选第一个 拆分的依据。如果是想拆成不同的部门，就不同的工作表格，我们得选所属部门。如果是按姓名来拆分，那就选姓名，今天选的是所属部门， 这里有两个选择，如果是拆分保存到不同的新文件，那么就会一个部门一个工作表格 保存到文件夹中。但如果我们选择的是不同的新工作表，那么他都会在这一整个工作簿里面只是展成了不同的工作表。 选中之后，点击开始拆分，好一瞬间就生成了各个部门的数据。

这张表是小区住户信息表，包含了楼栋号、单元号、楼层和房间号等建筑信息，也包含了住户姓名、电话等信息，需要按楼栋、楼层、单元及户号分开成这样的表， 其中的主要信息是住户的姓名、电话和单元号、楼层数和户号。 用 excel 函数做起来叫困难，这里就使用拍散。必要的步骤是把这两个原工作表和目标工作表引进拍散， 然后是把原数据变成拍散表格。接下来开始处理数据，先根据房号把对应的楼层和房门号分离出来， 再根据房门号对应到左、中、右三个位置。 把最后需要的几个信息用换行符连接到一起，把楼洞的数据类型变成整数型，方便后边查询。 把单元号由阿拉伯数字转换成中文数字。 提取需要的字段，按结果表头的字段形式组合字段，丢掉用过的不需要的字段， 把结果的表头区拉进来，以便构建输出的正确形式。 构建输出的形式的表头，用新表头构建一个空的拍散表，设定需要信息的漏洞号，把该漏洞的信息提取出来， 转换输出格式。继续转换输出格式，把楼层所引变成列，合并成空表的格式后输出完成。

vba 红编程实操演示表格有一万条数据，如何批量把每个单元格内容拆分成多行显示？大家好，欢迎观看本期视频，本期呢我们来讲解一个 vb 的实操案例， 就是呢哈，比如说我们这边有这样一个表格里面呢哈，有很多合并，那个有，就说一个单元格当中呢啊，可能有多条记录啊，分行的这种记录 啊，这样，然后我们现在想要的是什么呢？啊？是把这每个产品对应的后面啊，这一个单元格里面每条记录呢哈就单独分成一行。好，我们点一下这个分行之后呢看一下这个效果， 点击之后哈可以看一下就每个产品所对应的这个所对应的这个产品描述呢哈，都变成了什么呢？ 单行去显示，单个单元格去显示，这样就实现了一个分行啊，分行一个效果。那我说我们看一下哈来如何去实现这样一个效果。 ok， 好，我们先把这个原有的这一块呢给他清除掉，删除掉哈，然后呢我们重新写一下代码，重新写一下代码啊，这是原来的代码啊，然后我们重新写一下 啊，重新插入一个模块，然后这个地方呢哈，我们给他定一个啊红名称，比如说就叫做数据分行。 那么这点哈，我先说一下哈几个知识难点啊，第一个呢哈啊，我们将用到呢哈一些那个政策将用到一个政 表达，是郑泽的一个创建，对吧？这是第一个， 然后第二个呢哈就是放循环的一个套用，循环的套用， 还有一些数字的一些内容啊，第三个的话会用到这个啊，那个合并单元格，单元格的合并， ok， 好，主要是这三个比较啊，有难难度的知识点哈，然后我们写一下代码，好，首先第一个哈， 我们先去声明一个数组，然后呢把这个数据呢都装进来啊，这个数组啊是一个基础概念，比如说我们定一个数组叫阿瑞，是吧？阿瑞，然后的话这个数组呢啊，我先不写啊，我们再定一个什么呢？ 再去定一个政策。 rain 啊，好啊，一 g 吧，我们就要二一 g 啊，他是什么对象是吧？好吧，这，然后的话我们去把这个正则的创建出来，跟创建字典差不多 啊， ig， 然后呢我们用一个 cream 啊，创建一个字典啊，少一个字母， 然后呢里面啊是微这个，这个是套路的啊，这个就是纯套路，大家只要记住就可以了，或者网上去查一下啊，都能查到 啊， bb， 然后的话是，嗯，正则啊，然后呢我们看一下啊， 好，创建好之后呢哈，好，然后创建好政策，然后呢把这些基础的先准备好，对吧？然后我们把这个数组去装数组啊，数组的话我们这边呢哈，就让他等于什么呢哈，就等于把我们整个这个表格，对吧？从这个 c c 七到第十五，把它装进来，就这一片数据哈，给他装进来，好，来执行一下这边哈， c 七到一个第十五这边的话，我就啊不用动态获取了，直接用一个写一个表格区域就可以了，把它复制到这个 a 二二当中， 然后接下来呢我们看一下啊，呃，复制好之后呢，我们去去循环一下这个数组啊，取他的每一个指，这要注意哈，你说我们把这个整个整个这个数据呢都装进来之后呢？哈，我们就用正则呢哈去对照什么数组中 第二列的值是吧？书中第二列的值啊。那么说找到之后的话，我们去什么给他执行一个，给他执行一下，把他执行出来，然后把执行结果呢去复制到右边这个这个这列就可以了。是这样一个思路啊，但是还是挺复杂的哈。首先我们写一个报循环 后循环这里哈，我们定一个变量，比如说这个 a 等一个一啊一出啊，有棒 a r 啊，这边的话是拿到数组的一个啊，集合常用套路 在这个集合当中呢哈，我们先去写一个正则啊啊，这边的话直接用一个位位子形式啊，位子形式啊，位子位子这个位置是吧？把它所有的属性哈都写出来。第一个属性呢 的话是啊，格罗布啊，格罗布的话就是他的一个执行范围是吧？执行范围圈级变量啊，比如说给他一个数就行了啊，什么意思啊？就是说匹配所有的值啊，就用这个政策啊去匹配所有值，这就是一些技术属性啊。 然后第二个的话给到一个表达式，呃是呃是这个表达式 啊，表达是是什么呢啊？排在哪是吧？排在哪？ att 一二，然后的话处 啊拍在那等拍在那我先等会写啊，等会写好， 然后呢先写一个 in the rave， 看你的位置啊，然后拍那呢？这个表达是该怎么写呢？我们看一下啊 啊？表达是的话要看一下啊，就说我们这里面要看一下啊，就说整个的这一列数据当中哈 有几个特点呢？就说每一个人，每一个，每一每一个单元格里面呢哈，都是什么分行？显示的也是红米啊，都是一些分格服，分行服有的还有空格是吧？还有空格等等啊，这样哈，有一点小不规则，就大部分都是一些那个分行服啊来实现的啊，就是一行一行这样， 然后呢这样的话哈我就干什么呢哈，就只要踢除里面这些所有分行服就可以了是吧？踢出里面所有的分行服，然后呢拿到所有的值就 ok 了啊，所以说这里哈我们先踢出所有的分行服，怎么踢除呢哈？这边政责当中呢，有一个 啊，斜杠有一个大 s 啊，斜杠大 s 是什么呢？哈，就除去所有的这个空白符啊，分行符之类的啊，是这个意思，大家 可以去查一下哈，很好查，然后的话去除之后的话剩余的干什么？全部都拿过来啊，加一个加号是吧？全部都拿过来啊，这是基础的一个政策啊。 全部拿过来之后的话呢，然后下面呢拿过来之后啊，我们有了，是吧？然后我们把这个再设设定一个项目啊，设定一个结果啊，我们给他给到一个结果，这个结果是什么呢啊？比如说他叫做就叫做记本啊， 这的话就是什么呢啊？就是我们这个呃正则的执行结果啊，把它复制给这个记啊，复制给这个记啊，然后呢我们用一个 exce， 然后执行一个 q 是吧？也是 q 啊，执行谁呢？就是执行我们的 a r a 啊，第几列？第二列啊？就 a 行第二列哈， a 行第二列啊，就这个意思啊，因为 a r 呢是两列是吧？两列，我们是对第二列啊，所以说是 啊，第二例啊，不过对应的哪个值呢？就是执行到 a 这个值了，是吧？这个值的第二例啊，去执行，这样就可以了。好，我们运行到这里之后呢， 这里要注意哈，那么这里的这个 g 呢？他执行完之后呢？哈？他是什么？他是啊，他是一个对象啊，他是一个对象啊，所以说用一个赛特啊，赛特设置， 但是呢哈，我们还需要把每一个里面的这个 y 六拿出来，是吧？把 g 里面每一个 y 六拿出来，因为每一个的话会分成三个，对吧？每个分成三个，所以说这里的话我们要去循环一下这个啊，把这个 g 里面每一个值拿出 出来啊，再循环一次啊，套一个循环就说把 g 里面每一个 v 六拿出来，我就用个 v 啊引 g 啊， nice。 好，然后我们等会看是什么意思啊？然后的话把每一个 v y 六啊在这里面去拿出来，拿出来之后的话有几个呢？我们这边用一个计数哈， i 等于二加一，这一个数有几个我们也不知道，是吧？然后呢？我们用一个， 呃，然后呢？此时的话拿出来之后哈，啊，就是记得歪六了是吧？就记就是微的歪六啊，微的歪六就拿出来了 啊，复制给谁呢？复制给谁啊？复制给。注意啊，我们是系列是吧？系列的一个值啊，从近期开始的是吧？ 那么说这个地方呢哈，我们就写一个啊，这个地方是 ringe 记这个七，不要直接写这边我们用一个变量的形式，因为我们这个 i i 为什么要计数哈？就是说他执行了几次是吧？执行了几次的话就有填几个格，那么 i 跟这个六相结合哈，组成这样一个变量变量的单元格，变化的单元格，这样 好，这样的话就对这个变化的代言格上进行复制。复制谁呢哈？就是复制 v 六 y 六啊，每一个 y 六都复制进去啊，就这样。好，这是这一步哈 好，这样的话系列就可以复制完成了。然后我们先执行一下哈，看看有什么问题。然后呢我们把这边哈设置一个断点，然后我们先执行 好执行下来。哎好，没问题是吧？每一个都执行下来了啊啊？比如说第一组是是一的是吧？ 第二组是二， ok 啊，没有问题啊没有问题。好，那我说执行完成之后呢哈还差点问题啊，还差点事情啊，就说我们这个啊， f 列还没有填啊 f 列还没有填，那 f 列怎么填呢啊？这个地方也很简单，只要把这个地方润置 f 对吧？ 他等于什么呢？如果说这个结果是一样的啊，他等于什么？他等于 a 二二 a 什么让他等于第一列的值就可以了啊，因为这个数字哈，我们看一下结果哈， 每个数字的话第一列就是产品名是吧？都是第一个产品名啊。所以说我们只要让他等于 a 列的值就可以让他等于第一列啊，后面跟着第一列的值就可以了， 大家要理解啊，速度啊。呃，看这个教程的话需要有一点基础的啊。啊好，然后的话这边 的话就循环完成了。循环完成之后呢？呃我们再执行一下，再执行一次啊执行一次好停止然后再执行一次 啊。这边好像没有没有拿啊这个这记是吧这个记不对啊。这应该给谁啊？给 f 啊给 f 列了啊。改一下啊再执行一次停止再执行一次， ok， 看一下啊好，没有问题对吧？ a 的三个， b 的三个好，都过来了 好，执行到这一步之后的话啊我们还需要干什么？我们把什么相同产品的这一块单元格给他什么合并一下是吧合并一下啊这一块就比较简单了啊这一块就比较简单了 但是这一块哈就说我们需要再重新执行一个循环啊重新执行一个循环啊这是上一个循环啊上一个循环好，下面是下一个循环下一个循环的话我们去这样执行 啊这边的话呢我们呢就是说合并单一格啊，我们这样考虑哈就是从后往前合并啊 从上往下的话呢。呃从上往下也是可以也可以啊，不过这边的话我们最好呢是从后往上啊这样去找这样比较好找一点啊找到这个地方就结束是吧啊好，往下找的话可能一些空白单元格哈等等会有些问题。所以说我们合并单元格的时候一般是从后往前啊这样 好，然后这个地方哈我们就对照什么呢哈从这个单元格开始往上找，如果这两个值相同呢我们就给他执行一个合并啊这两个值相同呢再对照这个值跟这个值对吧啊相同呢再给他执行一次合并啊这样一个思路啊。 ok， 好，那么说我们看一下啊。嗯啊怎么来做啊怎么来做 呃这个地方我先再拖一下啊，因为刚才不小心合并了 哎 ok， 好，然后我们执行一下哈。那我说这个地方代码怎么写呢？ 这个地方有有一个区域是吧？这个区域是什么呢？实际上刚才呢啊，我们这个数组里面实际上已经写过了哈已经写过了 呃，还没有写是吧？还没有写，我们这边我们再再重新定一个重新定一个那个重新定一个数组。好，那我们重新定一个数组啊 啊定一个一啊，这个 a 二二一呢？他就等于一个啊。现在是什么？现在是还是从这个 还是从 b 七开始啊？ f 七开始了是吧？这次是从 f 七开始啊， f 七开始到哪一个呢？ 实际上到什么？ f 列了。最后一个单元格就可以了是吧？就是啊，用一个直接用一个 ff 的 n xl 档就可以了啊，这样哈就 xl 档呢就可以拿到最后一个单元格啊。 f 七到什么最后一个单元格就可以了。 不小心删掉了啊，重新写一遍。 好，这样的话我们就把这个数组就拿到了哈，然后我们再定一个区域啊定一个区域哈啊定一这个区域的目的哈，是后面我们方便加 这个啊，把这个区域也写上啊也是这个区域啊，再定一个区域。前面呢前面这个呢是用一个数组把它装进去后面这一个呢哈我们是定一个区域呢哈，是用来加样式之类的啊。 ok， 后期加样式。好， 然后的话我们用 a r 一到这里啊循环一次 a r 一。嗯，这边的话我们用一个什么呢啊用一个 b 来循环吧一。嗯，循环的时候要注意了啊，这个地方是什么？ 我说过哈，刚我们说过刚才我们什么要从后往前去合并，对吧？我们现在注意下这个现在这 a r 一是什么？ a r 一是这一片数据啊，这一片数据要理解要理解，现在是这一片数据就装上了这个 f 到这一列的这个表中的数据是这样的。 好，所以说此时的话呢，我们这个循环的话，我们要倒序循环啊，所以说我们要这样去循环，首先呢哈，这个 a 二二一是吧？没有一个有棒的啊，拿到他的一个总长度啊，有总长度呢哈，去加上一个六，加六是什么意思哈？ 呃，加六的话就是最后一行，比如说哈我们现在这一块数据呢啊，总长度是可以看到啊，是二十七，最后一行是三十三，三十三减二十七的话是 是什么？呃，那个我们从第七行开始的是吧？三十三减七的话就是二十六啊，不是哈， 就说这个地方哈，正好呢哈一共是二十七个数据，加上六呢，正好是最后一个，是三十三号是吧？是这个意思啊，正好是三十三号，然后呢 我们倒去吗？我们要倒着来，我们从最后一行三十三行到几行呢？到第七行啊，这样啊，然后要注意哈，倒续的时候呢，要加一个不长啊， st 一 p 是吧，不长的话就用一个负一这样一个循环， 在这个循环当中呢，意思就是说从最后一个往上数啊，往上数啊，怎么来，怎么跟这个单元格相结合呢？哈，可以这样写啊，如果啊，我们可以用一个什么啊？赛尔斯是吧？ 如果说啊，这里的行是谁呢？这里的行肯定就是 b 吗？如果说是 b 行第几列呢 啊？这边是第一列的纸是吧？ c s c s， 这是 f 列啊， f 列不是第一列。 好，如果 cr4f 列的值是什么？是等于一个 等于一个 c s 啊，重新写一遍啊，等于 c s b 减一是吧？就是什么 b 相当于第比，比如说第一次执行，第一次执行的话是第三十三行，对吧？三十三行的三十三，这个三十三行的这个单元格的值呢？如果说 f 三十三的值啊，如果说等于什么 f 三十二的值，我们就执行一个合并，是这个意思啊？好，再继续写， 如果相等的话，然后呢行先写完啊，直应一个什么呢？直行一个合并这边的话我们就用啊润值这个，就把这两个值 在写上这个套进去，然后的话这个啊减个一 意思是什么呢？哈，就是说从把什么啊 f 三十三到 f 啊三十二是吧？用一个润指这个区域表格区域的形式呢表达出来，然后给他执行一个什么木耳啊合并啊，这样就 ok 了啊，这样就 ok 了。哎，这样的话就可以给他执行一个合并了啊，执行一个合并。 好，就是这样去执行就可以了啊。好，我们来试一下试一下啊，然后的话停止直行， ok， 可以看到哈所有的数据啊，都已经合并好，对吧？最后一步就比较简单了，再加一个什么啊网格横线就可以了是吧？网格横线哈，我们这边的话，我们就刚才的时候就 定义的这个阿瑞啊阿瑞啊，所以说我们最后的话再把这个阿瑞的 bothers bothers 这里的那个啊边框是吧？ lines are 所有所有边框样式给他执行一个默认就行啊。 continue 好，就这样哈，就这样好，然后呢我们来执行一下 执行哦， ok 啊，好像这里好像有点问题是吧，有点问题啊，再执行一次啊，看一下。 呃， r e f o f 音啊，注意哈，这边要注意哈，这个 r e 的话干什么？不对哈，是 f 七到谁啊？到 g 是吧，到 g 期的这个档是吧， 这一期的当啊，所以说我们这边要改成这啊这一列啊，因为是什么他到这一列吗？ ok， 应该是这样的啊，这一列的当，所以说哈啊，这一列的最后一行啊，这一列的最后一行是这样的意思。好，所以说此时哈我们再执行 哎，这次干什么没有问题啊。 ok， 这样我们就执行出来了哈，我们可以把它那个关联到呢，我们这个按钮上就可以了啊，点击右键指定红，然后这边的话我们就叫做什么数据分行确定，然后把这一块呢给它清除掉， 听说全部之后呢，我们点一下分号， ok 啊，这样哈就完美的实现了啊，当然最好再给他一个集中对齐是吧，就不嫌那么麻烦了啊。好，这样呢，他就完美实现了。感谢大家观看本期的视频哈， 我们重点呢是学习 vb 一当中啊几种啊案例的用法，一个是正则表达式的用法，一个是循环套用，还有一个和平单元格。好，非常感谢大家观看本期视频啊，虽然代码比较简单啊，但是逻辑还是比较复杂的啊。感谢大家的观看我本本期就到这里，下期再见。 关注我学办公帮办公。

欢迎观看本期的 vb 实战课程，那这节的话我们来看一下啊，如何用关键词呢？一键拆分数据啊？在观看视频之前啊，是因为我们是实战课程啊，可能稍微有点长啊，大约三四分钟左右，大家可以提前把我们这个视频先收藏啊，建议收藏，然后反复的去看，好不好？ 好，那我们来做一下，那比如说我们这个地方啊，去输入关键字啊，关键字我这里就实际上就是列名啊，比如说我想按城市拆分，我想按地区拆分是吧？或者我想按联系人进行拆分啊，这样一些关键字输入好之后我们点一下拆分呢哈，他会呢哈，自动，比如说我按城市吧 啊？他会自动什么呢？哈？拆分成长春呢，对吧？呃，这个大理啊等等这些这些地区，这个怎么去实现的呢？很明显 我们比如说玩完城市的话，我们干什么？我需要先把城市这一块呢先去重对吧？去重之后呢？哈一个城市建一个表，然后呢哈把该城市相关的数据呢给它查询进去就可以，就这样一个思路哈，然后我们来写写这个具体的代码。好，首先第一个的话，我们是先把啊 表数据装进数，我们这个数组的话叫 ar， ok， 那 这个怎么装的？前面已经讲过很多次了啊，大家需要有一定的微距的基础啊，比如说你得知道什么是数组是吧？怎么去用的这个地方的话我就直接写了啊，就从 a 六到 h 往下就整个表， 那多少呢啊？比如说这个表示，这表示到八百三十五对吧？啊？八百三十五， ok， 那 我们这里还可以用一个自动获取到底是什么？ h， 我 们叫做我们起一个好号叫 n r 啊，这个 e r 是 等于什么？ e r 就是 我们动态获取上默认好号啊，这个的话方法有很多，我们这里用其中一种，比如说我可以什么通过啊？ a e 方法啊？往下找的形式。 嗯，因为我是那个，我们是实战课程啊，所以说我们要一步去写好，这是第一步是吧？我们这样的话就达到我们整把整个表装进去，然后我们进行第二步，然后呢哈。呃，如果城市是吗？如果根据根据关键字， 对吧？去什么去去重啊？对应了列， ok， 那 这个怎么去去重呢？很明显是吧？比如说我这里的时候，我去声明一个关键字吧，比如说叫这个叫 k， 是 吧？我们叫 k 吧。 ok， 不要叫 k， 叫 k， k 等于什么？ k 就 等于我们这里的什么 c 三啊， ring c 三， 然后我们就按这个 k 去了去重，对吧？好，那所以说好，我要按它去去重的话，现在要注意啊，我们这 ar 就是 整个表， ar 就是 整个表， ar 是 整个表的话，我得知道什么 我指定关键字在哪一列，比如说啊，我们要什么按整个表上哪一列进去重，对吧？所以说我这边上还再升了一个 c 吧。 c 等于什么？比如说我们需要通过啊，哪一行啊？我们第五行啊，去找一下我们这个 k 的 什么列 number 啊，就 ok 了。 好，找到之后呢哈，然后呢哈，我们再去这个啊，驱虫是吧？驱虫。那怎么去驱虫呢？这里哈需要创建字典， 创建一个字典我们叫做 d c 啊，字典的语法是固定的，大家只要记住就行了啊，这种方式的话叫户期绑定，然后我说了很多可能专业术语哈，很多粉丝没有学过红，未必红的话，建议大家可以学学一下老师的课程 啊，虽然说现在有了 a r 啊，但是你还是要懂维 a r。 以前的时候我要求大家是吧，要懂还要会写啊，现在大家得什么看，能懂就行了。好吧啊，欢迎你们去学校老师的课堂，然后啊， d r c 是 吧？好，我们就创建好字典，创建好字典之后的话，然后呢，我们去通过循环数组，循环数组的啊啊？去什么 通过循环数组去啊？去宠啊，循环数组本地上就循环这个表是吧，然后呢依据第三例，那这个怎么写呢？很简单，教给大家一个标准语法。 什么叫标准语法？就是套路代码啊，也就是说啊，你这个会了，你可以什么啊？只要遇到类似情况可以一直用。 好，那我们这里是把第三列也说在循环过程当中哈，我们本质是把是把第三列啊当做 k 值去写入我们的字典，然后的话，后面这个一的话可以随便写，写零也行，写一百也行，随便写啊，然后就是把这个数值，把第三列这个数值哈，就把它装进字典。 dc 是 我们装进的字典， 装好之后的话它会自动去重，去重之后啊，怎么取出来呢？说明一个 kl 叫什么？ dc 点 case 啊。好啊，这就取出来， 取来之后我们接着看。取来之后话呢，接下来我说过了什么啊？第三步是吧，干什么要创建表是吧啊？并命名，并按城市命名。 ok， 好， 我们接着看第三步。那这个怎么来做呢？很明显是吧？现在这个 kr， 是 啊， 现在是 kr， 就是 所有的城市，对不对？那这个地方要注意哈，这个 kr 的 话，这个循环的时候，循环的时候要从零开始循环，是吧？零开始循环，然后呢？呃，那个为什么是从零呢？因为这个大家记住就行了，它所以是从零开始的啊，就相当于一般情况是从一是吧？一二三四五六七 与棒子是指的是总行数，就相当于我们去重之后有几个，比如说有五个城市，五个城市的话，第一个城市它的所以值是零。什么叫所以值啊？序号啊？ ok 啊，那这个地方 好了，然后的话我们循环过程当中哈。啊？就是什么啊？就是建，建城市建表嘛，对不对？建表哈，是点 d， d， d， 然后呢？ 默认的啊？见到表的默认啊，这个是一个套路代码啊，然后把这建好，这个表呢叫做什么 u 啊？啊？ s， g， e， t。 见新表是吧？比如说哈，哦，多了一个点是吧？ a， d， d 啊？逗号啊，还有这个这个细点， a， d， d 不 对啊，应该是一个什么英文逗号是吧？我写中文。嗯 啊，不是不是在这个地方命名啊，我直接什么？直接直执行建表吧，执行建表，建表之后的话新表就是了，对吧？我们就就没必要重命名了啊，实际上什么建好之后建好长时间，他就跳到这个表里，实际上就是当前纪黄表，对吧？ 好了，然后的话就是当天进回表怎么写的啊？当天打开这个表啊，就是那个地方就等于我们的 k r 循环到这个值，对不对啊？ k r 循环谁这时候这个乘数名就建行好，这第一步就说我们是批量建行表，是吧？然后进行第四步，找到 该城市所有的数据并填入表，这样 这句话稍微有点长哈，没想到那么长，长就长吧，我们就实战课好不好？好，然后这个地方的时候啊，就说我什么点那个那个进来之后的话，然后生成好了，不是生成好了就说进来之后呢哈，我们准备把 a e 单元格呢哈，当做这个写一下它的一个城市名，然后的话第三行的话是表头， 呃，然后下面的话是具体数据，所以说这里的时候呢，我们先把表头复制过来，把这个城市名写上，对吧？ ok， 比如说实际上我们这个点建好之后，然后我们把什么 把这个表呢？哎，从下面写就可以了。第四种啊，第一个，那这个表呢？ a e 单元格，那当然哈，默认情况下我为什么直接写出 word？ a e 呢？默认情况下应该什么？ a t 点？就当前表，当前表 a e 单元格啊，但是呢，如果是当前表的时候呢？哈，这个地方可以省略的。 这组课啊，还是请大家把老师的微课课程呢，可以多学一学是吧？咱们可以放回实战课程，我们做出库啊。嗯，进销存啊等等类似的。好，然后我们润 a 一， 然后它等于什么呢？它就等于我们的城市是吧？这首城市是谁啊？ k 二 贴，呃，实际上是什么？就是我们 active sheet 点列，对吧？啊？这样它没有在循环体中啊，我们这个循环体的话，这一部分我把它分开了哈，正常你把这一块的话放到里面去也行啊，放到里面去也是可以，是吧？啊？然后我们这个地方还是放到里面吧，放到里面比较好， 放到里面的话，因为它是什么循环键表并循环查询值嘛，这样的话就一块就弄完了，是吧？好，放到里面去，然后的话，这 a 加一个等于什么？就等于我们那个 p r p 啊， 打标好好了，然后我们把表头复制过来。表头是谁呢？表头实际上我们一开始就在取，是吧？比如说我点击拆分的时候，我先把这个表头复制这个表头区域的话，好，哎，我们把这个地方啊来声明。什么表头啊？表头区域是什么？这的话就是从这个 a 五到什么到 a 四五， ok， 好 了，然后接下来我们接着写啊，什么表头要 copy 到什么到 a 四五， ok， 好 了，然后接下来我们接着写啊，表头要 copy 到什么？ a 三单元格， 对不对啊？考虑过去，考虑过去之后，然后呢？我们在什么进行查询啊？注意哈，接下来是什么查询数据哈，查询该城市数据， 对吧？啊？怎么查？从哪里查？很明显是我们从我们这个数据表里查，我们把它重命名一下，叫数据表，叫数据表里去查，对吧？这数据表是谁呢？我们不是一开始存到数据库上去了吗？不要忘记了。 好，所以说啊，这个地方时候查询的时候啊，我们也可以啊，再循环一次数组，对吧？循环下写循环这个数组的本质就是循环， 就相当于循环我们这个表的每一行啊，我们数据表的每一行，凡是第三列等于该城市的，对不对啊？所以说啊，这里如果说什么第三列循环这一行，是吧？ a 行，第三列等于什么？此时的 k r、 k 啊，这个城市的，然后就开始，对吧？ 对不对？那比如说啊，循环这一点的时候等于什么？等于这时候 k 啊， k 啊，等于这个值的时候呢？就是我们要的 数据，这时候呢，我们把，比如这一行是我们就把这一行嘛存进去，存起来，这一行是我们再把这一行存进去， ok， 就 这样一个原理啊，那循环呢？这个地方时候呢，还要用到第二个知识点，就是动态速度，我这边哈声明的 a r 一 东南速度，东南速度是什么？就相当于这个数是空的，空的。然后呢，我们把找到每一行值的啊，给它存进去就可以了啊，怎么存呢？很明显啊，这边记个数吧， a 一 等于 a 一 加一，比如说什么意思啊？这里要注意一个事情啊，就说你必须要有 v b a 是 吧啊，数组的一个相关知识你才能看得懂， 如果说也看不懂的粉丝的话，因为这一个不是纯基础课了啊，应该是属于一个实战课，所以说你得要有一定的微 b 技术才能看懂，好吧，啊，可以去下老师的课上啊，这是一个提醒，然后的话你也可以这个反复的看，也 ok。 好， a 一 等于 a 一 加一，然后的话哈，这个地方的时候我们再命名一下这个范围是吧？ 嗯，就是命名一下这个 a 一 哈，它有多少个值哈，它就是 ar 数组哈，然后放那个什么，你把这一行开始 r 一 进去就行了，把这一行哈存进去。这句话是什么？从 a e 到 h 是 吧？也就说对应到我们啊，第一列啦，就是我们这个数组的第一列循环到第一列啊，一直到什么 一直到啊？几天也是啊，七个 ok， 一 二啊，三四五六七 ok， 然后实际上这边就对应了每一行数据，二三四五 是七个应该是。好了，这就是用数组动态循环查找啊，我让他执行完，对不对啊？循环完了也就查询完了，查询完成之后呢，接着呢就是把它放进这个城市当中去就 ok 了啊，那这个表正常情况下是空的啊，是空的，我只是把它那个为了给大家封面演示，把它复制过来数据， 好，我们接着看，然后查询完成之后呢？我们这里啊，需要这什么啊？这里还需要一个 a r r 啊，然后如果说啊，只有一条数据啊，怎么办是吧？然后如果说什么呢啊？多少数据该怎么办？什么叫一条数据啊？也就是说在这个数字上，就是在我们这个表查询当中， 长春地区的，比如说只有一条数据，那这时候啊，怎么去往这复制是吧？只有一条复制，然后如果说因为只有一条的话，它属于一维数值啊，没有裂啊，就相当于什么超过一行才有裂啊，就像这样，这样就有裂了是吧？这不是啊，这样就有什么就有这个宽度了啊， 就在我们表达中哈，就在 v b 的 识别当中哈，一行的话代表什么？一条直线啊，而比如说超过一行可以认为是一个面儿，好吧，那就横长宽了。是这样啊， 所以说好呢，这个地方说如果只有一条数据的话，就不用转置啊，直接复制就 ok 了。比如说啊，这里啊，我复制直接把，我们啊就只有一行的话就复制这一行了，从 a 四是吧？从 a 四啊，到什么到这里了？ h 二四，然后呢，直接等于我们的 a r e 就 ok。 那如果多行多行的时候，它就什么有了面是吧？有了裂，有长了，有有有高了，有了宽，有的高了，所以上行呢，这个地方呢，要进行一次转置啊，转置成用 a r 去承载。什么叫转置啊？就是大家应该用过表格的基本嘛转置呢，这节稍微有点点长啊， 成了一个正常讲我们 vip 课的一个节奏了哈。嗯，好，长长这样转置哈，转置什么意思？就是把它那个把一位数的转化成二位数，比如说哈有行有列是吧？是这个意思，大家记住就行了。转置完成之后，我们再去复制 一次，然后点 assign， 那 这边哈要用一个 assign 啊，划令什么在对哪一片进行复制啊？几行呢？就从 a 四开始，几行？多少行啊？就查找的时候 a 一个行几列呢？ 几点啊？起立是吧？那就等于我们 a r 好 了，那整个查询赋值的过程就结束了，然后呢，最后哈查询完成之后，我们还是空了一 boss 查询完成。 嗯，这边还用了很多数组的一个技巧。好，这样说几个知识点，第一个，我们这个 a 一 是吧，代表什么？就算我们这个循环查找的时候，查找每一个值的时候啊，比如长春地区的，长春地区的查完了啊，查完了，那这时候什么？这 a 一 要清零是吧？所以说每一个地区什么一开始查询之前要给它清零啊， 每个城市包含的数据不一样啊，这个城市的长码来给它清零是吧？复制完成啊。 ok， 没有问题，然后再进下一个城市啊，就这样啊，这边要注意这个 a d 清零啊，我们再看一下还有其他问题吗？ 啊， ok， 嗯，可以了，基本上就这样一个过程对吧？好，我们来试一下啊，看行不行看能不能实现。我们要的啊，按照关键词进行拆分啊。那我先把这个程序删掉就不要了啊，然后我来试一下。 嗯，好，有问题我们再来调整啊。点击右键指英红去指定一下我们的按关键词拆分是吧？好，点一下拆分。哦，这边有个问题是吧？圆角矩形可以，嗯，圆角矩形什么问题？好指定一下啊，再来一次，好，这边有个变量没有声明是吧？ a 一， ok， 好，接着来。哎好啊，拆分完了，拆分完之后发现一个问题啊，什么城市？好像不太对是吧？我们按城市的话应该是找到这一列，找到这一行， ok， 不 太对，我们研究一下是什么问题啊？先把它删掉，不掉我们待会儿把它弄来 好了。那这个地方很是什么问题呢？很明显啊，就是什么。嗯，肯定是我们这个，这个这个最终是吧，去重之后看这个 k r 有 没有值，怎么测试呢？是一个断顶啊。哦呃，城市关键词是吧？拆分好，然后我们来看一下我们的 k r 有 没有值。 ok， 嗯哦，刚才有一个问题是吧？刚才有个问题，就是说我们写成固定的是吧？写成固定的第三列实际上是什么是 k 列， 为什么是 k 列呢？大家不要忘记了啊。就说，呃，不是 k 列是 c 列是吧？ c 列大家不要忘记了啊，就说我们这个地方啊，因为每个表里面啊，关键字或者说它列是吧，不一定在第三列啊，就是什么，我们再去找一找啊，它在哪一列啊？最好用一个 find 的 方法去找，对不对？ ok， 好， 那这里我们接着看啊， 好，这边是吧，这边是这个，这个巨虫，我们看一下 kr 有 没有值啊， kr 是 错误的对不对？好了，然后我们研究一下啊，然后 ar 数值， ar 数值的话我们是肯定是有值的对吧？ ar 数值的话，哎，怎么只有两行呢？ ar 数值有问题。 好了，我们看一下啊，这是从 a 一 啊，我从 a 一 开始了，因为什么从 a 五对不对？ a 五往下找，比如说我们找末一行的时候找错啊， a 五往下找，这样就 ok 了啊，发现了一些那个基本的一些那个小错误啊，但是整个语法是没有问题的，好，我们接着来看，有含义没有问题。好，我们再来拆分。 哎，看到没有啊，搞定了对吧？啊？重庆地区的，然后呢？昆明地区的？烟台， ok 啊，就这样一个过程。好，这个哈，就是按关键词拆分的一个基本代码，在实际的这个应用和实战当中哈，啊，可能还会有一些其他的问题，比如说， 如果说我这里面是吧啊，有一些那个就是拆，拆分完成之后是吧，如果说哈，我，我下次数据表又更新了，是吧，再进行拆分，那怎么办呢？ 这里大家可以把所有的表现删除掉是吧？删除掉之后呢，重新进行一次拆分也是 ok 的 好不好？好了，那这节呢，就是本节的一个实战案例课啊，大家有什么问题可以留言啊，这是元旦版，已经完整给大家讲完了， 是不是非常给力？好，不要忘记关注是吧，一定要关注一下，然后记得。嗯，你可以加下群啊，然后需要本节课加入粉丝的话评论区留言。

我们讲最后一种方式， g s w p s g s 写合并后面的数据，然后呢，这个只能 w p s 用啊，这个下行用不了的，所以我们打开 ps， 进入这个编辑器，这个工具里面的 w p s 编辑器或者的 out fc 快 一点， out fc 也能进。嗯，这个也是一样的。然后代码这里面的话又全插入一个模块，然后是 写方形小写啊，别，别选大写，小写那个就叫合并，然后小括号，大括号他就顺到代码写到这个大括号里面。就这里一个函数啊，这个函数，嗯，然后怎么写呢？然后我们直接循环吧。 for left work seat of four work work w， o， r， k， s， h， e， t， s 吧。这个啊， work seat， 注意大小写啊。然后呢，我们要获取，你看一下， 然后行管体写在中间是吧？行管体什么呢？然后是异口法判断，不是什么都都那个吧。呃，我和 set 的 根据一样，不等，不等于是打感叹号和等号不等于什么汇总，但我们不写，是汇总，我们写 set 一 的 set 是 就没有那个，没有那个代码代码名称啊，没有什么那个 set 一， 那个 set。 十一第一个表， 它一般等于这个。怎么样呢？我们再处理，处理什么事情？处理什么事情，先拿到它那个， 拿到它那个什么。呃，最后一个 s t s 的 s t 六一是吧？它等于什么呢？ c 的 点 cs， cs 点 find， find 什么呢？查找什么？查找星号在哪找？在在，在 workspace 的 啊，编辑在 workspace 的 a 一 后面找，然后呢？然后查找值，查找值啊， v， a， r， u， e， s， 查找值，然后还有一个呢？然后是模糊匹配，模糊查找，查找 l， p， a， r， t part 是 吧？然后是方向，是行，方向找，嗯， x r 呃，白 rose 是 吧？然后最后一个是从下往上一个怎么去找，上一个怎么找呢？ x r 呃， p e r 的 p e 行， 还有 a a o u s 是 这个啊， leave it we s 然后 leave it 点什么呢？点 no， 这就是我们可以单步执行一下，看一下 f c 啊。嗯，走走走，走走啊，这个错 叉 r p 单单字写错了一样， 走走走啊，这个时候算的是，我们可以看一下这个可以，可以，打印出来，这还没算到这里算 算，这样吧，打印一下这个吧，直接弹，弹一下 a r a r a r a， 弹一下这个 s 二十六，一， 重新来，这个不能直接就行了。它，它，这个不用了，就行了吧？重新来过。 f 十一，凑凑凑凑，二百六十八，没问题。第二个二百六十五，没问题。 二百六十八就是最后一行这个里面的二百六十八行，最后一行二百六十五，这个二百六十五没问题。好，然后这个是，这个是 last 呢？ last 是 什么样的？ mstar 是 不是用这个？我们可以定义一下，把这个，把 c 点一定定义吧，定义一下吧，游戏里我们就叫 workstation， console workstation 等于。呃， c 点一吧。 啊，这边这个用啊，不能叫这个，这个是 shift 吧，把啥写 shift 吧，不能叫我 shift， 这个里面英文它变变了，已经已经是 shift 了，所以这个里面不要叫我 shift shift 是 这个也是 shift shift 的 这个，然后要加一。为什么加一？我上次说了的 这个是粘，粘在的位置，可能是最后一行的往下面移一行不能粘在这最后行。不是把这个这最后行覆盖了吗？所以不能粘在这个。嗯，好，这个没问题了。 呃我们找到了这个表格里面的最后一行，然后这个粘贴的位置的最后一行，下一个也也找到位置了，然后直接就直接。那就执行粘贴呗。 哦被论据。那什么论据呢？你前面带上 work sheet 的 论据啊。 work sheet 的 论据。论据什么呢？论据是我们要的是 b 什么 b 到 m 是 吧。那就 b 二到 m 多少呢？ 这个加号啊，没有什么那个艾特符号啊。这个不也不一样。呃。连上这个吧。这个然后点 copy copy， 不要直接创建，我们要创建数值啊。然后就是 set 一 的论级啊。论级。论级什么呢？论级 a 多少？应该是 c 啊。 c 多少呢？ c plus 二，注意大写，调大写，然后点 bus。 呃 set 的 论据。对，先把这个。嗯，不需要这个其实因为这个这个没有，没有跳转，这个不需要。不需要这个。呃论据点 part 是。 呃叫什么？ b n s t e 呃 s p e c 什么的，这个嘛，直接连嘛。 啊这个里面是懒得写了，这样这个叉 r 跑那么大小就很烦的。粘贴为值，粘贴为格式 max 啊。粘贴值粘贴格式两个粘贴完。粘完之后呢？ 那怎么弄啊？然后是不是我把那个把这个清掉，把内存那个清掉啊。粘贴版清掉，要不然到时候如果刷单多的会会有会有点卡的会，可能卡数据少的话其实还粘贴版清空的会慢一点，但是我 尽量这样做吧，慢不了多少。呃 app 点什么 type 或者 type 格式默的等于把它作为一个 pos 啊。 看好了，然后先复制粘贴版，然后呢复制过来粘贴粘贴，粘贴之后呢？然后我们是不是把这个 b 列的那个，把它，把它那个 b 列点扩展掉，把那个 b 列，把这个东西来来工作表写上，是吧？ 点 r e s i g e。 扩展多少呢？扩展这个第一个减一行吧，少一行不用表头嘛。 它的它的怎么呢？点 value 是 吧？ value 二等于什么？你模仿这股串吧。模仿这股串。这个手握和 shift name 啊。 前面加一个什么？加一个单引号好了。为什么加单引号还是六月十号会变成六月六月一号啊？因为变成我们要在文本边不能复制啊。然后接下来怎么弄？看一下接下来怎么弄。呃。复制那个也好了，然后 应该就可以了。我测一下。走走走走走走走。 这里写错了啊，系统里面一直进入呢。这肯定会等于他不可能不等，他一直不想练，可一直跳一跳，这样好，进来进来，粘贴，复制。大家复制他。他的蚂蚁线啊，是不是 复制这块区域没问题的啊？我粘贴肯定粘贴粘贴到这里了。 c 十五粘贴到这个位置啊，然后粘贴，然后把格式刷过来。格式弄过来，弄过来之后，然后把这个蚂蚁线去掉。这边现在有蚂蚁线的啊，把蚂蚁线去掉， 完全没了。然后是 b 列。呃，写上这个，呃，六点一啊。 嗯，对，一号没问题，然后第二次，第二次应该粘到这里，粘到这里，粘到这里，然后写上六月二号，你看一下。这样转。转过来了啊，转到这里来，写上六月二号。 六月二号没有问题。然后让他一直一直玩吧。 我印完了。印完了之后呢？还差一个什么？还差一个什么？我们是对十五行，十六行插入一下吧，因为没有上表头嘛， 所以这里面运行完这个是没有在循环全部运行完之后到这里面论积 五行到十六行，对它 insert 看看。 s， e， r， e insert 插入，插入之后呢？十五行，十六行插入之后呢？ 插之后在这个 c c 十六啊，把这个第二个 set s， h， e， t s 啊，第二个的表格拿过来 的问题。嗯， b 一 到 m 一 点 copy， 直接 copy 到这里吧， copy 到 c 十六 c 十六，注意大小写 好比到这个任意 c 十六啊，好，这十六，然后接下来是 a a a a 到 b， a 十六到 b 十六到 b 十六，它的值等于什么呢？二等于什么？这个数组啊，等序号和来源工作表，等这两个东西。 序号，序号和来源工作表， 然后最后一个什么，最后就是把这个，嗯，把这个什么序号填上，序号就是这个东西， 你再重新算算下最后一行的最后一行，最后一行加，不用再列。然后接下来就是十七行 a 十七，论取 a 十七到 a 多少呢？ a 多少？ last 吧， last 六二吧， last value 啊，其实这个叫 format 啊，就这个 f o r e t format f o r 呃，格式，呃，公式嘛？ f o r m u l a r format 或者 format， 这 format 也行， format 也行，因为这个是普通的，不是宿主，不是宿主啊，如果宿主的话，你用你用那个 format 二啊，格式二，一样的等于什么呢？ 嗯，漏 a 一 啊， a 一 啊，漏 a 一， 然后最后把这个， 把这个 value 二，把这个公式去掉吧。 value， value 二，再等一下自己就好了， 等一下自己就好了。用呃，猴也行啊，用这个也是一样的意思。然后接下来怎么弄呢？呃，格式中不好说，它就没了。嗯，测一下，测一下。 嗯，但是你会发现一个问题，这里面是 一万六。为什么？为什么会这样？因为我们上一期的没上一次的，一开始，上一次的没有删掉，所以我们 s t e t c t c t 点 s l s e c t 啊，先选择 选择它，然后删掉，然后任意取的十五到，比如到十五万块钱，到九千九百九十九九万吧，对了，直接删除第一，第一删掉它，这样就可以， 然后我们记一下是八千的，对吧？没有问题，然后我们记下十吧。 计时的话就一开始到前面吧。啊， ctrl start， 那 是 d a 啊。 d start 等于什么？等于 date 吧， date 的 闹吧，只有用它的时间戳， 等等我们到了闹啊，拿到它时间戳，然后最后最后我们呃，用后面的时间戳。呃 d a d date 点 now， 点 now， 这个时间戳减掉一一八点 start， 然后把它格式化一下吧。有一下 post 二 second s e c 有 吗？ second 等于这一个 这一个，然后四四舍五入保留两位小数，一个用。呃，用什么用？一个 保留两位小数，用一个 to fix。 呃 fix to 呃 fix f 呃， to fix 应该怎么写？ f 排列 x e t 吧，好像是一个，然后是保留两位小数， 这个是大写，那把 x 一 d 对 to fix， 保留两位小数，这个就是它的秒数，然后最后弹窗吧。 let 是 吧？ let 嗯，那保本保本指数放吧，共二十， 然后然后是什么呢？这个秒这个，然后这中间是十一 second。 好， 就可以了，然后再测一下，走你。 哦，对了，忘了一个事情，这个中除就除一千，少了除一千，但是毫秒。算了，这毫秒经过多少毫秒啊？除一千， 最后再再用任意解，任意解 a 一， 行动一下 a 一 吧，点 c， 点 c， 点 c t 啊。 left， 最后呢？跳到 a 一 单一个去 啊。 哎呦，我靠，这个低级错误啊，低级错误，这里面要要要 印刷，我把它这个扣起来就行。加减乘除的算错了。嗯，这样。嗯，再移行。 对，把这个 d 删掉了。 好，二零零二零三零秒。加空格吧，加一个空格吧。哎， 加一个空格好，其他就没什么。哦，我们还有那个，这个时候就不要加那个什么了，不要加那个屏幕刷新了，不要去，不要，不要关那个屏幕刷新了啊。这个里这个 wps gs， 这个里面屏幕刷新和微软的那个还不一样，有时候它加了会儿屏幕刷新还会更慢， 就不加了。然后还有个筛选的问题，筛选的问题，我们一开始一上来，呃，选中它之后，然后用 set 要把自动筛选去掉 a u t o f i r t e r o 音这个 out file， 呃， mod， 呃，这个格式把它改为 a， 就 不要这个自动筛选了。这个也是，如果它不等于这个的话，我直接就把它删进去了。 word sheet， 这样就是到时候我们这个筛选的话，它会影响，如果你不用不不清的话，它筛选会有影响啊。这个我们在打边那个 v b a 写的时候已经说了这个问题，这样的话它会有影响的。假如我不不筛选不清掉筛选的话，运行一下， 你挺快的啊，看到没有，六月一号只有这几个，为什么？为什么？你这里筛选这里到七号，比如说二到七，二到七是几个？ 二到七是七，减二等于六个嘛？所以六月一号只出来六个，一二三四五六，是吧？然后是就这样的， 后面有空的，又为什么前面是没有的，然后这个怎么办呢？我们就把这个打开来，把裁剪去掉，还是这样裁剪的，我把它清掉再处理，我们加一个按钮吧，插入在这个窗体里面有一个按钮 重按，然后给它合并，指定调音，合并啊，然后我们就加合并，合并，合并， 然后可以设置一下格式啊，手信大小、位置经固定啊。好，然后这个再点 零零五零秒，然后六月一号应该是没问题的。嗯，是吧？这个把会其中把这个车型去掉，清掉是没问题的，然后是八千，最后一个是八千，是吧？好了，就这样，然后这个 新增也是没有问题的，新增的话也是没有问题的。 三点四零秒， 嗯，新增的话，我现在是六月二号，是吧？就是他八千多万，肯定八千二百六十四，对吧？然后肯定会出来一个六六六二号，六月二号的 这个，这个是吧？删掉它又没了，删掉它， 所以更新肯定是没问题的，更新肯定是没有问题的，那就没了，就这样了。然后这个车的就几种方法，方法我都讲完了。 excel 的 power， 然后是 wps 的 power 方法，然后函数，然后是 vba， 然后 gs， 这五种方法我都讲完了。

大家好，本期我们来做一节 vb 的 实战课啊，我们把一些那个独立的一些表啊，去把它一键合并汇总，比如说我这边这个文件夹里啊，有那么一百个多个表，然后的话我想把它一键的啊，去合并所有的表啊，怎么去实践了？那写一下这个代码， ok， 我 们点工具，点开发工具，点开我们的 vb 编辑器， 然后在这个地方时候我们去插入一些的模块，那我们来写一下啊，我们需要的啊，多文件合并吧， 写好这个红。然后的话，我们的思路是这样的啊，首先的话我们是这个去读取啊，这个文件夹下的所有的目录，所有的这个文件啊，这个目录的话就是在我们这个原数据里，原数据里啊，那这个地方的时候呢，我们就直接啊啊去复制啊，点击右键啊，可以这个复制它的文件地址啊，就可以， 然后我们回来，然后我们去生成一个路径，路径的话就是这里。嗯， 然后的话我们复制好这个路径之后呢，我们要读取这个路径向左走，然后怎么去读取呢啊？这个地方时候呢，我们可以用一个 do wire loop 啊，然后这一块代码哈，是固定代码，大家的话可以啊，直接记住就行了，然后这句话哈，我们就需要用一个什么呢？ dr。 去读取， 我们去时代课，对，忘记说了啊，去时代课可能时间有点长，大家记得先收藏啊，一定记得先收藏，然后第二二时候呢，我们去读取一下这个路径下所有的什么所有的文件，然后这里要注意啊，我们要读取一下什么，这里面的话所有的啊，嗯，写一个星号啊，就说所有的 x s x 格式的，是吧？是一个文件啊，这样 啊，需要这样写上，用一个信号去匹配，然后第二去读取好了，然后我们接着写上一个说我们读写的过程当中哈，它这里用了一个 do loop 循环，就是无限循环，只要是什么呢？不断能读到这个 file 文件啊，读到这个目录下这个 excel 文件的话，以及不断的往下去读， ok， 好， 那比如说我们读到第一个了哈，读到第一个之后呢？我们用一个 bookbox 点 open 啊啊？去什么？去打开这个文件是吧？去打开这个文件，哎，打开这个文件之前的话，我还需要什么？需要去绑定它的路径是吧？这里需要一个什么路径，然后去连接这个文件名啊？就是说我们的路径是吗？实际上就是我们这个路径， 我这里可以直接复制一下啊，当然我们这里的话，这里的话再声明一个路径一啊，路径一的话是到文件夹这个位置啊，就是到数据源这个文件夹的位置，方便我们后面去连接， 然后这个地方我们就用路径哈去连接这个文件名称哈，你说注意哈，这里用第二读取的呢，是它的文件名称啊，然后读取之后，然后我们去设定一个，我们让这个文件哈打开软件呢？等于 w k 啊，这边啊生成一个变量 啊，还是要说一下啊，大家如果说想熟练去应用 vb 的 话，需要一定的 vb 红的基础，然后老师这里做了三 c 的 vb 的 课程，还有一些实战课程，有想学习的粉丝的话也可以抖音去私信一下。 ok， 好， 接着回到我们这个案例当中来，然后我们这里的时候呢，接着往下写啊，这里我们就是去打开什么，打开就是我们读到一个文件，我们去打开这个文件了， 然后我们把这个文件当中哈。呃，从 a 二开始吧， e 往下，然后这个数据的话去给它拉取到。好，然后我们做的呢，也就说我们需要在我们这个工作布下啊，这还是 w k 是 工作布，是吧？然后它是一表啊，一表，然后话，然后我们去拿到这个数据，然后我们把这个数据的话，比如说我们把这个数据的话，比如说我们去存储到一个数字当中去，也是可以的啊， 那我想想用数字吧， a r， 嗯，比如说这个是吧？从 a 二到什么？ e 往下， a 二，然后到 e 哪里呢啊？这边的话我们可以用一个末尾行号嘛，比如说啊去读取到什么呢？这个这个整个数据点的末尾行号就 ok 了， ok， 然后 n r 呢？就等于一个，嗯啊，就等于什么啊？ d r、 c r， 那 我们就用什么呢？从后往前读的一个方式，从后往前读啊，找到对应号， 好，然后找到末尾号之后我们这连接好了，那这时候的话，我就把这一个表的数据呢，已经存到我们的数据当中去了啊？ 当然哈，我们可以不断往后去存，是吧？但这个地方也可以用一个动态数据去不断去存储啊。我这个地方哈就存一个啊，比如说把这个存了，是吧？把这个调用过来存一个调用过来存一个调用过来，这样，这样好理解一点，比如说这个表存完了，然后我们准备把它放到这里， 怎么放呢？回到我们当前点，比如说它放到位置的话，比如说第一次的话应该是什么？就从 a 八开始是吧？下一个的话应该是放到 a 十九，比如说这不断往下去放，所以说啊，这个地方是不是呢？也在动态获取什么？前边位置是吧？我们叫做 t r 等于什么呢？等于我们当前点啊， range 啊，这里的话我们还是这样，这样 右侧看， 第一点，加个一，好吧，加个一， 好，那这里哈，我们就拿到这个 tr 了，嗯，拿到这个 tr， 然后我们开始复制是吧？啊，这个复制也很简单，刚才说过了，就是什么啊？ range a 去连接 tr 啊，然后呢？我们怎么就复制这个数值？ a r 这个数值，然后啊，可以这样啊， resize 几行呢？就是什么呢？有磅啊， a r 是 吧？几列呢？列数的话是固定的，就是五列。这里哈，用数字去复制 啊，因为这个地方用到这个速度啊，包括一些这个技术单元格的一个表的一个操控，所以说大家至少要有 vba 的 这个第一季和第二季的一个基础好不好？好，接着我们接着写时代课，然后回到我们这个 啊，那这个地方就复制好，复制好之后的话呢？什么我们这个复制好了下一个呢？也会自动啊，去复制的啊，就不断去循环， 接上，我们接着。那接什么？往下去循环，接着往下读啊，再写一个 file， 一个 d r r 啊，这一块是固定的啊，这个是固定语法，一开始什么从 d r 开始读取第一个啊什么？但写到循环题，不断去读取，不断去执行，这样一个过程 就 ok 了啊，读取放入，读取放入，这样啊，就起到一个合并的一个效果，然后即使有什么一百个表，是吧，也能够什么自动去合并过来，就这样一个效果。那这个要注意一个事项，比如说我们这个地方啊，我们这一次读完，是吧，已经把它添加过来了，实际上啊，到这个地方，比如说 我们把这个表里的数据哈，已经存进数度之后哈，这个表就不用开着了啊，就把它关掉就行，是吧？就像我们在写这边写一个什么啊， w k dot close 啊啊，就 ok， 把它关掉 好，然后这个地方的时候呢，为了加快这个运行速度哈，我们再写两个，关闭，刷新 f c 点啊， scripting 啊，就是 force 啊，包括函数公式的一个停止啥都行，然后我们就，嗯，然后呢，执行完成之后呢，我们再执行一个什么 to 啊，就 ok 了， 好，然后最后我们再弹出一个新框来 vbox 啊啊，执行完成 放到最下面啊，来试一下啊，就这么简单啊，几句话就搞定了，然后的话我们点击右键群红啊，去指定我们多文件的合并， ok， 好， 然后我们来试一下，点一下合并 好，打开有一个失败吧，然后路径，我们看一下啊，路径，然后 file， 然后打开这个副本啊，我们先把这个关一下， 我们看一下啊文，问题是出在哪里，然后 g 盘下哦，呃，这个是路径一，上目录的话是路径一哈，不是路径。 ok， 好， 再来 合并，你看看没有它就不断地去执行，但是执行过程中好像有点问题是吧？ ok， 嗯，我们先查找 c 一下啊。哦，没有问题啊，执行完成。对啊，这样这样一键就过来了是吧？不断地去重复去执行，然后呢把所有的数据啊都调过来啊。 啊，这样的话就实现一个什么呢？批量一键合并汇总这样一个合并点的效果，对吧？有些人做我们做运动统计啊，各个客户了是吧？ 啊，包括年度统计啊，一般的话都会用这种实战案例啊。这个的话也是我们第一季课程的一个案例啊。大家那个，呃，课程及源文件啊，评论区留言啊。好，感谢观看，下期再见。

这节课给大家讲一下按条件去拆分文本，我们看一下案例啊。案例是这样的啊，就是左侧 a 列给的，你姓名跟部门他这个文本是连在一起的，那么这种情况我们是没有办法，呃，用拆分，用正则呀，或者是用其他的方法去拆分的，因为他的姓名的字数 啊，不确定，然后部门的这个字数也不确定，所以这个没有一个依据去拆分。那这种情况下，我们就想按条件去拆分，怎么拆分呢？因为你在一个公司里边，你的部门肯定是固定的，对吧？你肯定知道你们公司有多少个部门，对吧？根据部门，我们先把部门拆分出来，然后剩下的就是名字了，对吧？好，那我们看一下啊， 我这里边列出来了公司所有的部门，从人力资源部、市场部、行政部一直到物业部，对吧？好，那我们通过这个部门， 然后去筛选啊，把它的部门先查出来，比如说这个方件啊，方成件啊，市场部，如何把这个市场部提取出来呢？好，我们用一个函数叫筛选，用 filter， filter 筛选，我们筛选什么呢？我们要 找的是部门，对吧？得在部门这一列去查找，查找它这个方成件到底是什么部门呢？我们先把它锁定，锁定完之后呢？然后我们去 search 啊，去查找，查找什么？我还查找部门，对吧？我把这个部门用数字的形式把它 输入出来，然后去哪查找呢？我们去前面这个数据，原始数据，就方城建市场部这个数据去查，查出来的结果如果匹配，则输出对应的部门，我们试一下啊，哎，有错误，为什么会有错误呢？啊？这是故意写的错啊， 因为我们设置查出这个结果，如果查到了，它会显示一个数字，我需要把这个数字转化为处或者 false， 所以 用 a 四 number 啊， a 四 number 这个函数，然后把它扩回，扩回之后我们回车看一下，哎，这回市场不就出来了，对吧？好，那我们右下角向下填充 啊，填到最后，这样的话，所有的部门就都拆分出来了。那我们怎么提取姓名呢？提取姓名的话，我们只需要用整体的这个啊 字母串的数量去减去这个部门的数量，剩下的就是我们的姓名，对吧？好，那我们用一个啊， line， line 是 查询字母串的，对吧？字母串，判断字母串，我先判断原始字母串是多少，就 a r 里边，然后我再减去 like 这个部门的啊，当前部门的字母串是多少，剩下的是不是就是姓名的字母串？那我通过 left 去提取，排到这个原始 ai 单元格去提取它 啊，提取的数量就是整个啊姓名的字母串数量，对吧？然后这样我扩回回车啊，这样它姓名就提出来，然后右下角双击填充啊，这样就把这个文本拆分出来了，学会了吗？关注我，每天分享一个 excel 小 技巧，记得点赞关注！