实用VBA：15 一键批量汇总工作表的更优方法-Toy模板网

这篇具有很好参考价值的文章主要介绍了实用VBA：15 一键批量汇总工作表的更优方法。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

1.需求场景

此前介绍了一键批量汇总工作簿和工作表的方法。简单介绍起见，当时汇总工作表的思路是将各个表格中的内容一股脑复制粘贴到当前工作表中。但这样带来的问题是汇总效果不理想，一是汇总表格中会重复出现标题行，二是实际工作中我们未必需要汇总整个表，也许只需要汇总特定的几列数据。现在我们对汇总数据的自定义方法进行优化。

2.解决思路

前提是我们已经按照此前介绍的方法将多个工作簿中的表格汇总到同一个工作簿中。

实用VBA：15 一键批量汇总工作表的更优方法,VBA,Excel,办公自动化,excel,microsoft

现在，我们新建一个”数据汇总表“放在第2个表格的位置，仅从其他表格中将标题行复制过来。用于保存从各个表格复制过来的数据。

实用VBA：15 一键批量汇总工作表的更优方法,VBA,Excel,办公自动化,excel,microsoft

excel中的表格就像数组一样，是有一个索引值的，可以理解为编号，也就是当前表格在页面上从左向右的顺序号，因此，我们可以将需要汇总的数据表统一排布在右侧，然后按照表格索引值循环访问各个表格，复制其中需要的区域，再回到汇总表中按顺序粘贴即可。

3.VBA实现

Sub 汇总工作表()

    '定义循环访问工作表的起始索引号，循环变量，数据汇总表行号变量

    Dim iStart, j, dataRow As Integer

    '定义工作簿变量和工作表变量

    Dim wb As Workbook

    Dim ws As Worksheet

    '设置工作簿为当前文件

    Set wb = Workbooks(1)

    Set ws = Worksheets("数据汇总表")

    '激活工作表

    ws.Activate

    '关闭屏幕刷新

    Application.ScreenUpdating = False

    '设置复制工作表起始索引号

    iStart = 3

    '循环复制各工作表前5列内容到汇总表中

    For j = iStart To Sheets.Count

         '定位至当前数据末尾行的下一行

        dataRow = Range("A65536").End(xlUp).Row + 1

        '激活复制的工作表

        Sheets(j).Activate

        Sheets(j).Range("A2:E" & Range("A65536").End(xlUp).Row).Copy

        '切换到汇总表

        ws.Activate

        ws.Range("A" & dataRow).PasteSpecial

    Next

    

    Range("A1").Select

    '打开屏幕刷新

    Application.ScreenUpdating = True

    '释放工作簿和工作表变量

    Set ws = Nothing

    Set wb = Nothing

    '输出提示信息

    MsgBox "汇总完成。"

End Sub