合并excel中多个带图sheet

您所在的位置:网站首页 excel图片合并在一起 合并excel中多个带图sheet

合并excel中多个带图sheet

2024-07-16 04:52| 来源: 网络整理| 查看: 265

excel表格中,在sheet非常多的情况下,当需要合并到同一个页面做数据分析时,如果一页一页的复制粘贴很麻烦。power query和python目前暂时没找到可以合并时不丢失图片的办法,如有可以留言交流。

因此,记录一个简单的方法,就可以一键合并多个sheet。

条件:

1.所有sheet字段相同。2.数据必须从A1开始,不然会导致数据被覆盖,可以全选所有sheet去除空行和空列

首先呢,新建一个sheet页,如“汇总表”,然后右键单击汇总表-”查看代码“,然后就可以看到宏计算的界面,如下图: f787277026f34c4fbd3a6308d2d688a4.jpg 宏代码输入界面如下:

24e31b8088ab4d5db955a67167616e3f.jpg

 复制下面这段代码到空白区域: Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name ActiveSheet.Name Then X = Range("A65536").End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "OK啦!", vbInformation, "提示" End Sub

执行代码完成合并:以上步骤操作完,只需要单击工具栏上面的”运行“下的”运行子过程/用户窗体“, 90f6d8f707d5450d8e1c28dfd9f4e1ab.jpg 合并完之后会有提示,提示完成之后就可以把宏计算界面关闭了

343dd5e8b7664928bf262698932cc689.jpg

 接下来就可以看到合并完成的数据啦。

当然合并完成的数据会有多个标题行一起被合并了,筛选删除就可以啦~



【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3