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

对于经常与报告打交道的人，无论是业务人员、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  必须掌握的知识