Excel VBA工作薄 5.5简单的标准格式批量工作薄数据汇总 / 四六文摘

前景提要

通过之前的学习，我们现在已经学会了如何批量打开工作薄，判断工作薄是否打开等操作，批量汇总工作薄的基本操作基本上都已经学了一遍了，相信聪明的你已经能够明白这些操作的方法了，那么今天我们就开始进入合并部分，工作薄数据的汇总，相信很多人都已经安耐不住了吧，不过学东西还是要一步步的来，急不得的。

在之前的标题中，我们也是明确的强调了标准数据这几个字，什么是是标注数据呢，就是说当前要汇总的几个报表的数据格式字段都是完全相同的，不存在错位，字段不同等情况，这就是标准数据的意思，我们来看看实际的例子吧

方法分析

我们先来想想看，如果人手手工操作的话，想要实现这样的效果，我们应该如何操作呢？

首先我们人工操作的话，第一步就是打开工作薄，然后选择当前的活动区域，活动区域的选择我们可以使用UsedRange来选择，因为我们已经提前输入了标头，所以我们在复制其他的数据的时候，就不需要再次复制标头了，因为本案例中标头只有一行，我们就需要向下移动一行，移动要如何实现呢？之前我们学习过移动单元格用offset,至于复制粘贴，就是copy啦，这个非常简单，基础代码的框架我们前面已经写好了，今天我们继续补充复制汇总数据的代码。

场景分析

我们在之前模拟的数据的基础上，继续复杂化数据，假设我们现在有不同的销售员在不同的商城的订单销售情况，同时也有香港以及部分海外地区的销售情况，如下图

这些数据我们都是放在一个文件夹内的，方便我们遍历，我们现在要做的就是遍历这个文件夹，将文件夹内的所有的工作薄的数据都汇总在test.xlsm这个工作薄内，那么要如何实现呢？

代码区

Sub test()Dim pathn, sth As Workbook, rng As Range, rng1 As Range, sbook As Workbookpathn = ThisWorkbook.PathSet sbook = ThisWorkbookf = Dir(pathn & "\")Do While f <> "" l = Cells(Rows.Count, 1).End(xlUp).Row If f <> "test.xlsm" Then For Each sth In Workbooks If sth.Name = f Then GoTo line End If Next sth Workbooks.Open (pathn & "\" & f) '=====汇总工作薄的代码====== Set rng = ActiveSheet.UsedRange Set rng1 = rng.Offset(1, 0) rng1.Copy sbook.Worksheets(1).Cells(l + 1, 1) '=====汇总工作薄的代码====== ActiveWorkbook.Close True End Ifline: f = Dir()LoopEnd Sub

我们来看看最终的效果