《数据透视表开“两会”》这篇文章卢子采用了Excel2016新功能完成了多表合并。
有学员的Excel版本比较老,问卢子:“对于低版本该如何处理?”
先来回顾一下原文的做法。
统计1-12月每个销售人员对应商品的销售量。
格式相同的12个表格,现在要统计每个销售人员销售的产品对应的总数量。
Step 01 新建一个工作簿,点击数据→新建查询→从文件→从工作簿。
Step 02 浏览到工作簿所在位置,点击导入。
Step 03 选择整个工作簿,点击编辑。
Step 04 删除不需要的列,展开Data获取所有数据。
Step 05 将第一行用作标题,取消多余的标题筛选,关闭并上载。
Step 06 根据合并后的数据创建数据透视表统计。不包含空格的数据,可以直接勾选而不需要拖拉字段,更方便。
Step 07 布局以表格形式显示,并对销售量进行降序。
这样,一份年度数据统计表就完成了。
既然软件不牛逼,那就只能技术牛逼,多表合并可以借助VBA来实现。
这里采用VBA一键合并多个表格,爽,鼠标轻松一点就完成。
用的人确实很爽,只是写代码的人很累而已。
源代码:
Sub 合并()
Dim sht As Worksheet, arr
For Each sht In Worksheets
If sht.Name <> "汇总" Then
i = sht.Range("b65536").End(xlUp).Row
j = Sheets("汇总").Range("b65536").End(3).Row + 1
arr = sht.Range("a2:f" & i)
Sheets("汇总").Range("a" & j).Resize(UBound(arr), 6) = arr
End If
Next
End Sub
问题来了,我又不是最新版本,也不会VBA怎么办?
那就将复制粘贴用得炉火纯青即可。
Step 01 将剪贴板激活。
Step 02 将每个表格的内容复制到剪贴板,复制完后单击全部粘贴。记住,这里选择的区域不包含标题,因为第一行有标题了。
表格少,用复制粘贴还是很高效的。
你平常用什么用法合并多表的数据呢?
源文件:
温馨提示:将链接复制到浏览器,即可下载。
推荐阅读:
作者:卢子,清华畅销书作者;个人公众号:Excel不加班(ID:Excelbujiaban)