当前位置：首页 > 教育 > 正文

Excel VBA 7.19 Excel跨工作薄多工作表数据合并之Excel表格多行表头

一起学习，一起进步~~

多行表头，表头中含有合并单元格，这种类型的Excel表格在我们的日常工作中是经常出现的，很多的人在做表格的时候，想要体现表格的整齐和美观，大批量的使用了合并单元格、多行表头的形式，虽然整体表格数据好看了很多，但是对于数据分析和数据汇总的童鞋来说，则是非常头疼的事情，小伙伴们在日常的工作中也反馈会碰到多行表头的情况，所以我们今天针对多行表头的数据汇总来分析下方法

场景模拟

假设我们要统计的Excel中每个表格都有表头，如下图

现在我们不仅仅要汇总表头，同时还需要汇总表头下面的具体的数据内容，很明显，我们之前的代码面对这样的问题的时候，就受到限制了，因为我们之前的表头都是默认只有一行的标准数据，那么眼下面对这样的情况我们要如何来解决呢？

请听我的拙见~~

代码区

既然有了多行的标有，那么我们实际操作的时候，确定有多少行表头不就行了。

来试下

Sub test()Dim pathn, rng As Range, sth As Worksheet, book As WorkbookSet book = ActiveWorkbookpathn = ActiveWorkbook.Pathk = 0f = Dir(pathn & "\")Do While f <> "" If f <> ThisWorkbook.Name Then k = k + 1 Workbooks.Open pathn & "\" & f If k = 1 Then Set rng = Application.InputBox("请选择表头区域", "标有区域的确定", , , , , , 8) countr = rng.Rows.Count For Each sth In Worksheets k1 = k1 + 1 If k1 = 1 Then sth.UsedRange.Copy book.Worksheets(1).Cells(1, 1) Else l = book.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row sth.UsedRange.Offset(countr, 0).Copy book.Worksheets(1).Cells(l + 1, 1) End If Next sth Else For Each sth In Worksheets k1 = k1 + 1 If k1 = 1 Then sth.UsedRange.Copy book.Worksheets(1).Cells(1, 1) Else l = book.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row sth.UsedRange.Offset(countr, 0).Copy book.Worksheets(1).Cells(l + 1, 1) End If Next sth End If ActiveWorkbook.Close False End Iff = Dir()LoopEnd Sub

看看效果

我们首先要确定表头的区域

然后后面就交给程序自动执行了，他会根据我们选择的多行表头的行数来自行复制相关的数据区域，避免了数复制很多次表头的情况

来看看最终效果

多行表头已复制了，相关的数据也复制了，成功的将所有的数据都合并在了一个工作表

代码分析

其实本节的重点就是要获得多行表头的行数，然后我们可以从下一行将需要的正文数据复制出来，而不会将表头复制过来了。 

但是因为我们手上没有工作薄的样式，是一个空的工作薄，所以再循环所有当前工作薄的文件夹的时候，我们再打开第一个个工作薄的时候，进行表头区域的确定

If k = 1 Then Set rng = Application.InputBox("请选择表头区域", "标有区域的确定", , , , , , 8) countr = rng.Rows.Count

k是计量单位，记录我们打开的次数，当他等于1的时候，就是代表第一次打开，然后我们就可以通过当前的这个工作薄确定表头的区域了。

如何确定有多少行呢？

countr = rng.Rows.Count'此方法进行用来确定某个单元格区域的总行数，大家可以记下写法

既然有了多行表头的总行数，那么就可以开工了。 循环所有的工作薄内的所有工作表，如果第一次循环，就将表头复制过去，如果不是第一次了，那就将跳过表头行来进行复制，就是这段代码的作用、

For Each sth In Worksheets k1 = k1 + 1 If k1 = 1 Then sth.UsedRange.Copy book.Worksheets(1).Cells(1, 1) Else l = book.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row sth.UsedRange.Offset(countr, 0).Copy book.Worksheets(1).Cells(l + 1, 1) End If

当然上述的这些操作都是针对第一次打开第一件工作薄的操作的，如果打开后面的工作薄呢。k>1 ,则进入另外一个判断体

大家会发现这个判断体和上面的一个是完全重复的，没有，一样的思维逻辑，就是场景不同而已

===============================

你可能想看：

合并超多工作表的完美解法

然后打开它初阶汇总数据→新建查询→从文件→从工作簿→选中需要汇总的表→导入，把需要汇总的表都勾上，进入Power Query编辑器点击”→组合→将查询追加为新查询→三个或更多表→双击需要汇总的表格→确...

《Excel2003入门动画教程27、Excel拆分表格》

《Excel2003入门动画教程27、Excel拆分表格》。　　演示动画，　　操作步骤，　　有时候在Excel中：们需要比较浏览同一工作表中不同区域的数据时，可以通过折分窗口来实现“　　选中窗口中部的...

成本核算excel表格汇总，财务必备

核算成本是一个会计每个月都需要整理的工作，今天小编给大家整理了全套成本核算Excel表格模板，产品产量月报、固定资产折旧核算表、成本计算表(直接材料)、工资结算汇总表、、成本计算表(一二三车间制造费用...

风电、光伏、储能电站项目投资，收益自动计算Excel表格

3月16日-3月20日：储能：储能电站投资收益分析：储能表格二：储能调峰项目经济性分析：风电：风电场运维费预算：风电表格二：风电年发电量测算（风电必备工具）：风力发电经济平价测算表格风电表格四水电、风...

两个excel表格对比，有简单方法吗？

一、对比两个表的项目对应的值是否一致：excel中有一个大家不常用的功能。利用它我们可以快速对比出两个表的差异：一个是财务软件导出的表，要求对比这两个表同一物品的库存数量是否一致。软件导出表：选取sh...

办公小技巧：Excel数据列无损合并及灵活组合

我们可以使用连接符或连接函数来进行单元格合并，还可以实现合并内容的灵活组合（如添加自定义间隔符号或其他信息）。1. 用连接运算符与普通标点合并数据列 Excel中的连接符号“还需要与连接符与分隔符、标...

这是Excel中最强大的快捷键！按下它，表格立马自动处理数据！

表格立马帮你自动处理数据！二、转换成超级表格后可以实现哪些操作，将光标移动到表格首行或首列处时。即可快速选中表格的整行或整列，在超级表格的末尾添加新数据时，你可以按tab键跳到下一个单元格中，生成多个...

沉浸式Excel工作表目录教程

今天来简单聊一下如何使用Excel简单的函数完成工作表目录和文件目录的制作！工作表目录制作教程，使用下面的函数组合公式定义名称,用于获取工作表名称,=REPLACE(GET.WORKBOOK(1),工...

Excel工作表发给同事，避免乱改动，简单设置小技巧

整个工作表进行保护这种情况下，只能进行查看，当进行编辑任意单元格的时候，我们只需要点击审阅选项卡，然后点击保护工作表，表格里面部分数据需要同事协同修改，其它区域不能进行修改，设置方法分两步就可以完成第...

Excel硬核职业技能：全自动超链接工作表目录！往届生成功靠这招涨工资

这不小Q就靠一手全自动excel工作表目录技能，本文先带你熟悉全自动工作表目录的功能：点击目录即可跳转至指定工作表，目录自动更新当工作表名称被修改后：目录自动更新当某些工作表被删除后：目录自动更新当文...

Excel VBA解读（53）：高级筛选——AdvancedFilter方法

我们先使用Excel的录制宏工具录制一段进行高级筛选操作的代码，先在单元格G1中输入标题，选择单元格区域A1”则可以选择整个数据区域“就用不着每次都要选择不同的列表区域了”表明将数据复制到由参数Cop...

Excel 中Alt键的高手用法 Excel必学技巧

即可一键生成柱形图，Alt加Enter（回车键）单元格内强制换行五、Alt加数字键输入符号 (需要在带有小键盘的电脑上操作哦）Alt加41446输入温度符号Alt加41409输入错号Alt加41420...

VS2010操作Excel2010，报错解决及读写excel

加到模块std中:#include "CWorksheet.h";#include "CRange.h":5、将以上头文件的#import "C;\\Program Files\\Microsoft ...

Excel教程：30秒做好Excel超链接目录

工作表前面插入一张空白工作表Sheet。点击右键，查看代码会激活VBE编辑器界面，点击插入——模块，并且复制以下代码到右边编辑区。"选择目录起始单元格",Excel提示我们是否VB项目，选择文件保存类...

EXCEL表中随机生成手机号码（纯函数，任意号段）

由于各种各样的原因，总有需要随机生成数据的时候，今天就介绍一个随机生成手机号码的案例，废话少说直接看图,公式如下,直接在需要随机号码的单元格中输入以下公式即可,INDEX({134,177;TEXT(...

Excel VBA引用单元格区域有哪些方法？

VBA中可以使用Range属性返回单元格或单元格区域,图 11使用Range属性引用单元格区域：Range属性返回活动表的一个区域。使用Cells属性返回一个Range对象，Cells属性指定单元格区...

办公技巧 | 在Word文档中快速进行表格求和计算

偶尔也会有插入表格并进行计算的需求，虽说我们可以直接将Excel表格中的计算结果粘贴到文档中，但是有没有办法直接在Word中计算呢？同样可以利用公式对表格中的数据进行计算，首先在Word中创建表格并添...

还在被合并单元格虐？这个Excel“偷懒神器”解决你80%操作难题！

相信用过办公软件的小伙伴肯定都有合并和取消单元格的经历吧！今天就跟大家来聊一下表格中合并单元格与取消合并单元格的那些事，今天主要跟大家介绍一下关于Excel和WPS表格中批量取消\合并单元格的技巧。然...

VBA常用小代码102：批量合并相同值单元格

我们今天分享的VBA小代码内容是批量合并相同值的单列单元格，需要将相同的班级单元格修改为合并单元格……：'用户选择数据列，'intersect语句避免用户选择整列造成无谓运算,Application....

这5条Excel超牛公式，帮你搞定87%数据查询难题

LiRuiExcel520） 微信服务号|跟李锐学Excel（ID：查找引用在工作中的需求太常见了，这篇教程中给大家科普一下工作中适用场景最多的查找引用方法！遇到从一个表格里按条件查找数据，场景演...

复制浏览器数据到excel中时较长数字串会变成科学计数法的解决办法

其他自定义单元格格式 样式:mso-number-format:\#\#0\.000":"mm\/dd\/yy":01/03/1998:"d\-mmm\-yyyy"?mso-number-format...

Excel 2016数据透视表与条件格式

Excel2016数据透视表应用大全 突出显示数据透视表中的特定数据 。图5-40设置条件格式前的数据透视表步骤1选中; 在【背景色】颜色库中选择;图5-43新建格式规则图...

办公小技巧：保护Excel数据 重要资料轻松上锁

可以为特定的单元格设置保护密码，确保用户只能查看指定的内容（图1）。建立一个分配给每名员工的打开密码的列表（图2）。当在A2的数据输入符合辅助表中对应的密码字符即C13数值，此时在C2单元格显示辅助表...

自制血脉通治疗冠心病伴双下肢水肿32例临床观察分析+美味当良药 治疗高血脂合并冠心病+速效救心丸治疗冠心病可弥补西药不足+美味当良药 治疗高血脂合并冠心病

自制血脉通治疗冠心病伴双下肢水肿32例临床观察分析：采用中医活血化瘀兼利水法与地奥心血康对照治疗冠心病伴 双下肢水肿的临床观察：将56例冠心病伴双下肢水肿患者“治疗明显减少复发。

你会跨工作簿统计吗？

而VLOOKUP、SUMPRODUCT函数就支持，函数语法:=SUMPRODUCT((条件区域=条件)*求和区域)!我们重新看一下出错的单元格:\Users\chenxilu\Desktop\[跨工作...

Excel公式技巧01： 使用INDEX函数返回整行或整列

INDEX函数是我们经常使用的函数之一，如果将其行参数或者列参数指定为0（或者忽略）。那么会返回对指定列或行的引用，这里返回的不是单个值。返回数据区域A1:=INDEX(A1：返回数据区域A1，即单元...

表头工作数据区域Cells

上一篇
《红楼梦》中金陵十二钗判词解析

下一篇
巴伐利亚的彩绘房屋

有话要说...

最新文章

取消
扫码支持 支付码