Excel VBA 7.20 Excel跨工作薄多工作表数据合并之Excel表格多行/单行表头共存
一起学习，一起进步~~
发现小伙伴们的数据结果真的好复杂，复杂到我都想要哭了，这不昨天才分享过有多行表头的数据如何汇总合并，今天就有小伙伴反馈，他的数据虽然是有多行表头的，但是又有一些数据没有多行表头，那么在进行批量数据汇总的时候，应该如何操作呢？
场景模拟
碰到问题，我们首先想象，如果手工操作的话，我们会如何操作呢？
通过对比我们发现了不管数据如何的变化，每一个Excel报表肯定都会有字段名称的，那么我们按照这一行作为参考标准，这一行往下都是数值区域，往上都是标题区域
来试下
代码区
按照我们前面所说的这些思路，我们首先需要确定的就是字段名称所在的那一行的行数，如果依然使用上节我们分享的那种方式，在第一个打开的工作薄中来确定，明显就不合适了。
因为我们不能保证每次打开的第一个Excel报表一定是多行表头的，所以这里我们实行曲线救国，先在汇总表中将表头复制过来，我们直接在这个汇总表中进行确定
Sub ss()Dim rng As Range, sth As Worksheet, trng As Range, arr, tsth As WorksheetSet tsth = ActiveSheetSet rng = Application.InputBox("请选择字段名所在行", "字段名区域的确定", , , , , , 8)arr = rngpathn = ActiveWorkbook.Pathf = Dir(pathn & "\")Do While f <> "" If f <> ThisWorkbook.Name Then Workbooks.Open pathn & "\" & f For Each sth In Worksheets l = tsth.Cells(Rows.Count, 1).End(xlUp).Row With sth.UsedRange Set trng = .Find(arr(1, 1), , , xlPart) If Not trng Is Nothing Then num = trng.Row sth.UsedRange.Offset(num, 0).Copy tsth.Cells(l + 1, 1) End If End With Next sth ActiveWorkbook.Close False End Iff = Dir()LoopEnd Sub看看执行效果
先确定字段名所在的行，注意，这里只需要选择字段名所在的行就可以了，上面的部分不管有多少行，都不需要选择
然后程序就会自动执行脚本，来看看最终的结果
为了更好的展示效果，我对数据源，唯一的一个单行表头的工作薄的姓名列做了修改，方便区分
我们来看看他的数据
一个不拉的出现在了准确的地方。
其他的数据也全部正确的展示出来了。
完美
代码分析
大部分的代码，相信小火把门现在都能够看懂了，今天设置到一个新的知识点，是有关于单元格内容查找的，本来这个应该是放在后面单元格系列来说的，今天既然用到了，就先提前预热分享下
With sth.UsedRange Set trng = .Find(arr(1, 1), , , xlPart) If Not trng Is Nothing Then num = trng.Row sth.UsedRange.Offset(num, 0).Copy tsth.Cells(l + 1, 1) End If End With来看看这段代码
range.find(what,,,,,,xlPart)这一段代码就是单元格内容查找的代码，相当于我们日常工作中，通过ctrl+F调出来的查找窗口
查询之后，如果找到trng肯定不会是空值，如果是空值就证明不存在这个字段，说明数据更加复杂，需要另外找捷径了。
If Not trng Is Nothing Then此代码就是判断单元格是否为空
如果不为空，通过之前学习的rng.rows就可以得到他所在行了。
num = trng.Row之后就是简单的复制粘贴了，小伙伴们应该能够轻松驾驭了。
============================================