ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > 我的酷贴 > 操作与技巧 > 一步步学做合并工作表

一步步学做合并工作表

作者:绿色风 分类: 时间:2022-08-18 浏览:121
楼主
jinwood
年底了,各种报表都接二连三的需要制作。这几天,分别有不同部门的同事问到我关于多个工作表要合成一个工作表,最后按某一项目进行求和的问题。其实,真的挺简单的,就是前期的数据整理到后来的数据透视,但是好多人都不会,个人觉得其实就是缺少做题思路。下面,我就把我的方法和大家分享一下:

目的:
本例的要求是把表中的数据汇总到一起,查看每个办事处各项目的预算金额和决算金额是多少。

分析:
工作簿下有10个工作表,是10个不同的城市。每个工作表的表头内容都是一致的,不同的只是表中的内容

思路:既然表头的内容都是一致的,那就好办了。现在要做的就是把每个办事处的名称加到每个工作表中不就可以了吗?

具体操作步骤:
第一阶段:是把前期的数据整理好
1、组合工作表,在A列前面插入一列,A4单元格输入:办事处
2、因每个表的办事处名称都在B3单元格中,那A5单元格=$B$3,下拉(这里需要注意的是:因表的内容不一致,有多有少,在组合工作表之前一定要先观察一下每个工作表,把最多的内容的工作表拖到第一个,防止漏掉某个办事处的数据)
3、选中刚才下拉的内容(一直保持组合工作表状态),复制——选择性粘贴——数值;说明:这步一定要先粘贴为数值,如果直接替换,刚才下拉的各办事处就会变成内容最多的办事处名称
4、选中A列,按CTRL+H打开替换窗口,先把替换窗口中选项的范围变成工作簿,之后把“办事处:”全部替换为“空”
5、这时候再看各工作表,之前添加的A列已经全部变成办事处的名称了。这时候就可以把第一行到第三行的内容全部删除

前期的数据整理工作已经全部整理好,接着就是要把这10个工作表合成一张工作表,如果表很多的话这里推荐用VBA,代码如下:
  1. Sub 合并工作表()

  2.     Application.DisplayAlerts = False
  3.     Application.ScreenUpdating = False
  4.     For i = 1 To 10
  5.     Sheets(i).Select
  6.     ActiveSheet.Range("A1").CurrentRegion.Select
  7.     Selection.Copy
  8.     Worksheets(11).Activate
  9.     Range("a65536").End(xlUp).Offset(1, 0).Select
  10.     ActiveSheet.Paste
  11.     Next
  12.     Application.DisplayAlerts = True
  13.      Application.ScreenUpdating = True
  14.      
  15. End Sub
6、新建一个工作表,开发工具——visual basic或ALT+F11打开VBA编辑窗口(唉呀,这个到底是不是这样叫我也记不清了)
7、在左侧双击刚才新建的sheet11,把上面的代码粘上去,点F5运行
8、这时候再看SHEET11,前面的10个工作表已经到里面了

第二阶段:是把合并之后的数据再次进行整理
1、删除SHEET11第一行的空行,把序号和备注等没用的列删除,根据工作需要删除
2、筛选第一列,因刚才合并的10个工作表有10个表头,只保留第一个,其他的F5定位条件——可见单元格全部删除即可
3、筛选第二列,把本列中包含合计和空值的内容全部筛选出来之后依然是F5定位条件——可见单元格删除
4、这时候所有的数据全部整理好了,就可以做数据透视表了。这里数据透视表就不具体讲了,只需把想要的内容进行拖拖拉拉就完成了目的

以上,是自己在帮助同事时想到的方法,希望能帮上正在为此问题困扰的ET们。当然啦,相信广大高手有更好的方法,欢迎指教!


例子.rar

2楼
jinwood
 
3楼
wise
不错
4楼
芐雨
确实是一个很好的思路!
5楼
riennli
此方法已经实践过,有一处需要大家注意下:
在【第二阶段】…F5定位条件——可见单元格全部删除即可,这句解释中,【全部删除】最好是【定位后的区域单击右键-删除行-删除整行】,如果直接delete只是删除数据,空行还在。
6楼
jwang1214
谢谢楼主
7楼
kytaggile
谢谢分享
8楼
plw96201
收藏了吧
9楼
Table_tennis
确实是一个很好的思路!
10楼
金百益
按F5运行怎么显示错误120.jpg
 
11楼
kjmtip
之前的几步做了吗?
12楼
poiuyman5
确实好!
13楼
zhi_tan
不好意思,超级菜鸟弱弱的请问:如果用F5定位时,如果定位内容里有一个我是不想删掉的,如何在F5定位选择后单独取消这个要保留的单元格的选择?
14楼
powerful
VBA小白的我,看着就不明觉厉!
15楼
一粒米很香哟
我连第一步都操作不起来
16楼
313180934
亲,有视频的话,看的效果更好啊
17楼
jinwood
姑娘,2楼有动态图
18楼
fish-2013

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap