前景提要

今天我们继续前进，上一节呢，我们针对行的学习了关于工作簿中含有合计字段，含有空行，还有标尾的情况下，要如何汇总工作簿的数据，看着上面这么多的干扰因素，可想而知，能够用VBA合并这样的工作簿，能够节省我们多少的工作量啊，不过呢，也是有一些小伙伴表示，他们的工作场景，比我上一节的场景还要复杂一点，复杂在哪里呢？

字段不同！

字段不同的工作簿如何汇总，我们在之前已经学习了，应该是在本章的第6节，那么是不是可以用相同的办法来实现今天的场景呢？

当然可以，本节的代码，我们就是效仿之前的方法，在上一节的代码的基础上，继续完善

场景说明

其实最近有不少的小伙伴反馈，之前的代码，跟着视频学，还是能够看到的懂，也知道每一句代码的作用的

但是换个场景，就不知道要怎么写了。比方说今天的场景，其实也知道应该可以用到之前的那段代码和方法，但是并不知道要怎么用，怎么写

这里还是牵扯到一个问题，学VBA一定要多写多练

代码区

Sub test24()

Dim sth As Worksheet, rng1 As Range, rng As Range, urng As Range, sbook As Workbook, sb As Workbook, arr, arr1, arrt()

Set sbook = ThisWorkbook

pathn = ThisWorkbook.Path

Set rng1 = Application.InputBox("请选择表头区域", "表头区域的确认", , , , , , 8)

arr1 = rng1

f = Dir(pathn & "\")

Do While f <> ""

l1 = Cells(Rows.Count, 1).End(xlUp).Row

If f <> "5-23.xlsm" Then

For Each sb In Workbooks

If sb.Name = f Then

GoTo line