Excel快速合并多个sheet表（简单高效）快速合并多个excel请看上期内容

2023年1月1日 176次阅读 来源: lzx3310344437

工作中遇到excel中有多个sheet上万条数据怎么办，哦可以复制粘贴，不，大神都不是这么干的只需要一串代码就搞定，让我们来看看吧！！！

第一步：打开我们需要的表格。可以看到我们这里是有多个sheet的数据需要合并的
《Excel快速合并多个sheet表（简单高效）快速合并多个excel请看上期内容》
第二部：选中需要合并的sheet表鼠标右键查看代码
《Excel快速合并多个sheet表（简单高效）快速合并多个excel请看上期内容》
第三步：进入编辑模式只需要粘贴我们的代码就OK啦


```vbnet
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



![在这里插入图片描述](https://img-blog.csdnimg.cn/20210120173418132.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80ODE0OTczMw==,size_16,color_FFFFFF,t_70)
第四步：运行
![在这里插入图片描述](https://img-blog.csdnimg.cn/20210120173618156.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80ODE0OTczMw==,size_16,color_FFFFFF,t_70)
第五步：完成
![在这里插入图片描述](https://img-blog.csdnimg.cn/20210120173907994.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80ODE0OTczMw==,size_16,color_FFFFFF,t_70)
今天的分享就到这里啦大神带你飞。
    原文作者：lzx3310344437
    原文地址: https://blog.csdn.net/weixin_48149733/article/details/112903215
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞