江苏龙网

  1. 首页 > 资讯 > 资讯 > >

如你所愿，一篇文章搞定8种Excel多表统计！( 三 )


如你所愿，一篇文章搞定8种Excel多表统计！
文章图片


Step 02
浏览到工作簿所在位置 ， 点击导入 。
如你所愿，一篇文章搞定8种Excel多表统计！
文章图片


Step 03
选择整个工作簿 ， 点击编辑 。
如你所愿，一篇文章搞定8种Excel多表统计！
文章图片


Step 04
删除不需要的列 ， 展开Data获取所有数据 。
如你所愿，一篇文章搞定8种Excel多表统计！
文章图片


Step 05
将第一行作用作标题 ， 取消多余的标题筛选 ， 关闭并上载 。
如你所愿，一篇文章搞定8种Excel多表统计！
文章图片


Step 06
根据合并后的数据创建数据透视表统计 。 不包含空格的数据 ， 可以直接用勾选而不需要用拖拉字段 ， 更方便 。
如你所愿，一篇文章搞定8种Excel多表统计！
文章图片


Step 07
布局以表格形式显示 ， 并对销售量进行降序 。
如你所愿，一篇文章搞定8种Excel多表统计！
文章图片


这样一份年度数据统计表就完成了 。

7.格式相同的多个表格 ， 如何快速合并？
如你所愿，一篇文章搞定8种Excel多表统计！
文章图片


复制表头到汇总表 ， 点击二维码运行即可搞定 。
如你所愿，一篇文章搞定8种Excel多表统计！
文章图片


源代码：
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

8.如何合并同一个文件夹内所有工作簿的所有工作表？

同一个文件夹 ， 里面存着N个工作簿 。


推荐阅读


上一篇： 参加|周深参加《新手驾到》, 曾与肖战同赛卡丁车, 喜提幼儿组选手头衔

下一篇：最新消息|“中国芯”有多火？今天半个芯片圈都来了