【快速汇总】工作簿内的所有表格

对于经常与报告打交道的人，无论是业务人员、HR人员，甚至于财务人员、EHS专员等等，都避免不了汇总12个月份的数据，那么我们今天来讲一下使用VBA的方法快速汇总12个月数据的方法。

VBA的基本使用方法，ALT+F11打开。

下面是代码：

Sub 汇总() 'EXCEL好朋友，VBA编程学习之多表数据汇总

Dim sht As Worksheet, rng As Range, k&

Cells.ClearContents '清空当前表数据

For Each sht In Worksheets '循环每个表

If sht.Name <> ActiveSheet.Name Then '排除当前工作表

Set rng = sht.UsedRange '定义rng为表格区域范围

k = k + 1 '用于判断是否是取值的第一个表

If k = 1 Then '如果是第一个表格，那么取它的标题行

rng.Copy '复制

[a1].PasteSpecial Paste:=xlPasteValues '粘贴到当前表

Else

rng.Offset(1).Copy '如果不是第一个表，那么从第二开始复制

Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).PasteSpecial Paste:=xlPasteValues '粘贴

End If

[a1].Activate '激活A1单元格

End Sub

看一下使用方法：

点开发工具——宏——选汇总执行

怎么样，是不是科技感十足，解放双手，一切交给电脑吧。

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。