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

对于经常与报告打交道的人,无论是业务人员、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


看一下使用方法:

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

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


招聘人员的掌上宝典【招聘台账】-有人中途离职了【分享】

招聘专员一定要知道的【招聘台账】格式-【分享】

EXCEL之VBA编程语句常用300句

查找数据的运营总监-INDEX  必须掌握的知识

查找数据的运营总监-INDEX  必须掌握的知识

(0)

相关推荐