excel进阶：快速合并单个excel表中的多个sheet的工作页

最新推荐文章于 2024-02-24 00:26:01 发布

咯好好

最新推荐文章于 2024-02-24 00:26:01 发布

阅读量1.3w

点赞数 5

分类专栏： excel进阶

本文链接：https://blog.youkuaiyun.com/qq_21036939/article/details/85764907

版权

excel进阶专栏收录该内容

6 篇文章

订阅专栏

本文分享了一段VBA代码，能够将一个Excel工作簿中所有的工作表数据合并到一个工作表中，解决了数据整合的难题，提高了工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

十几个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 "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub