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

第一步：打开我们需要的表格。可以看到我们这里是有多个sheet的数据需要合并的

第二部：选中需要合并的sheet表鼠标右键查看代码

第三步：进入编辑模式只需要粘贴我们的代码就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)
今天的分享就到这里啦大神带你飞。