合并excel中多个带图sheet

最新推荐文章于 2024-11-06 10:33:02 发布

晴天小暴雨

最新推荐文章于 2024-11-06 10:33:02 发布

阅读量570

点赞数 1

文章标签： excel

本文链接：https://blog.csdn.net/luckilycc/article/details/131854364

版权

文章介绍了一种在Excel中合并多个Sheet的简便方法，尤其适用于数据从A1开始且字段相同的情况。通过编写和运行宏代码，可以避免手动复制粘贴的繁琐，但需要注意数据排列和可能的标题重复问题。合并后，用户需筛选删除多余的标题行。

摘要由CSDN通过智能技术生成

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

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

条件：

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

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

宏代码输入界面如下：

复制下面这段代码到空白区域：

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