【快速汇总】工作簿内的所有表格
对于经常与报告打交道的人,无论是业务人员、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
End If
Next
[a1].Activate '激活A1单元格
End Sub
看一下使用方法:
点开发工具——宏——选汇总执行
怎么样,是不是科技感十足,解放双手,一切交给电脑吧。
赞 (0)